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Preface 


This  “Image  Processing  Technique  for  Achieving  Lossy  Compression 
of  Data  at  Ratios  in  Excess  of  100: 1  ”  documents  a  study  by  Mr.  Michael  G. 
Ellis,  Electrical  Engineer,  Computer  Science  Division  (CSD),  Information 
Technology  Laboratory  (ITL),  Waterways  Experiment  Station  (WES), 
Vicksburg,  Mississippi. 

This  report  that  describes  the  development  of  a  new  method  for  achiev¬ 
ing  compression  ratios  in  excess  of  100:1  begins  by  reviewing  the  stan¬ 
dard  lossless  and  lossy  techniques  that  comprise  existing  algorithms.  The 
term  “lossless”  means  that  the  compressed  file  can  be  reconstructed  to 
match  the  original,  while  “lossy”  means  that  there  is  some  loss  of  informa¬ 
tion  in  the  reconstructed  image.  The  utility  of  these  methods  to  bandwidth 
reduction  is  analyzed  relative  to  several  High  Definition  TV  (HDTV) 
standards. 

Mr.  Robert  Moorhead,  Professor  of  Electrical  Engineering,  Mississippi 
State  University,  contributed  significantly  to  the  success  of  the  undertak¬ 
ing  and  provided  many  helpful  suggestions.  Mr.  Roy  Campbell,  ITL,  pro¬ 
grammed  the  “Image  Lab”  software  that  was  used  in  the  research  and 
development  of  these  methods;  Mr.  Joel  McAlister,  ITL,  also  programmed 
many  stand-alone  utility  programs  and  generated  the  hardcopy  images 
shown  in  this  document. 

The  work  was  accomplished  at  WES  under  the  supervision  of  Dr.  N. 
Radhakrishnan,  Director,  ITL,  and  Dr.  Windell  F.  Ingram,  Chief,  CSD. 

At  the  time  of  publication  of  this  report,  the  Director  of  WES  was 
Dr.  Robert  W.  Whalin.  The  Commander  was  COL  Leonard  G.  Hassell,  EN. 


V 


1  Lossless  Coding 


Entropy  Coding 

The  term  “entropy”  is  borrowed  from  thermodynamics  and  has  a  sim¬ 
ilar  meaning.  The  higher  the  entropy  of  a  message,  the  more  information 
it  contains.  The  entropy  of  a  data  file  is  deflned  as  the  information  per 
byte  for  that  particular  file.  If  the  8-bit  ASCII  character  set  that  makes  up 
a  data  or  image  file  is  not  uniformly  distributed,  then  the  entropy  will  be 
less  than  8  bits/byte.  In  entropy  coding,  the  goal  is  to  encode  a  block  of 
M  pixels  each  containing  B  bits,  for  a  total  of  M*B  bits.  The  entropy  for 
any  general  file  is  given  as 

"  (1) 

[p,  lo^(p,)] 

1  =  1 

In  an  8-bit  character  set,  there  are  256  values  that  can  be  represented 
by  a  single  byte.  The  probability,  p,-,  is  the  total  occurrences  of  the 
byte  divided  by  the  total  number  of  bytes  in  the  data  file. 

The  program,  ENTROPY.BAS,  uses  Equation  1  to  estimate  the  amount 
of  compression  achievable  by  entropy  coding.  ENTROPY.BAS  works 
only  under  QuickBasic  4.5  because  of  the  “open  binary”  statement  in  line 
70.  The  C  language  version,  ENTROPY.C,  is  provided  to  illustrate  the 
syntax  differences  between  BASIC  and  C.  Most  compression  programs 
are  written  in  C  since  the  more  optimized  C  compiler  produces  execut¬ 
ables  which  are  10  times  faster  than  compiled  BASIC. 


Huffman  Compression 

This  classic  compression  technique,  introduced  in  1952  by  David  A. 
Huffman,  is  perhaps  the  most  well-known  for  entropy  compression.  It 
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achieves  the  minimum  amount  of  redundancy  possible  in  a  fixed  set  of 
variable-length  codes  and  does  not  mean  that  Huffman  encoding  is  an  opti¬ 
mal  encoding  method.  It  means  that  it  provides  the  best  approximation 
for  encoding  symbols  when  using  fixed-width  codes. 

The  entropy  of  a  data  file  is  given  by  Equation  1 .  In  general,  log2(Pi) 
will  not  be  an  integer  so  that  the  achieved  data  rate  exceeds  H  bits/pixel; 
however,  the  data  rate  can  be  made  to  asymptotically  approach  H  with  in¬ 
creasing  block  size.  Huffman  encoding  operates  similar  to  the  Morse 
code  in  which  the  most  frequently  used  symbols  are  given  the  shortest 
code.  However,  it  is  not  obvious  how  to  optimally  assign  a  set  of  varying 
length  codes  to  a  set  of  symbols  to  be  transmitted.  Huffman  encoding  opti¬ 
mizes  by  assigning  a  varying  length  code  to  a  set  of  symbols  based  on  the 
probability  of  occurrence.  This  method  does  not  exclude  the  possibility  of 
other  lossless  techniques  producing  a  higher  compression  rate. 

Suppose  our  total  set  of  characters  is  represented  by  eight  ASCII  val¬ 
ues  with  probabilities  in  Table  1.  Eight  ASCII  values  can  be  represented 
by  3  bits/pixel;  however,  for  the  given  probabilities  of  occurrence,  the  en¬ 
tropy  is  only  2.6984  bits/pixel.  Therefore,  Huffman  encoding  can  provide 
a  compression  scheme  with  a  bit  rate  approaching  2.6984  bits/pixel. 


Table  1 

Sample  3-Bit  Character  Set  with  Probabilities  of  Occurrence 

Character  # 

Probability 

Entropy  (H) 

1 

0.30 

0.521089  » -0.3  Iog2(0.3) 

2 

0.23 

0.487667  =  -0.23  Iog2(0.23) 

3 

0.15 

0.410544  =  -0.15  1092(0.15) 

4 

0.08 

0.291508  =  -0.08  Iog2(0.08) 

5 

0.06 

0.243533  =  -0.06  Iog2(0.06) 

6 

0.06 

0.243533  =  -0.06  Iog2(0.06) 

7 

0.06 

0.243533  =  -0.06  Iog2(0.06) 

8 

0.06 

0.243533  =  -0.06  Iog2(0.06) 

1.0 

Total  entropy  =  2.6984  bits/pixel 

The  Huffman  code  is  a  variable  length  code  in  which  no  code  can  be  a 
prefix  for  any  other  Huffman  code.  Thus,  unambiguous  decoding  of  the 
transmitted  data  stream  is  allowed. 

The  Huffman  codebook  that  is  generated  by  the  tree  algorithm  must  be 
transmitted  prior  to  the  actual  data  in  order  to  set  up  the  decoder.  Programs 
for  Huffman  encoding  require  two  passes  over  the  data.  Probabilities  are 
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generated  in  the  first  pass,  and  the  actual  Huffman  compressed  file  is  gen¬ 
erated  during  the  second  pass.  The  following  is  an  outline  of  the  Huffman 
coding  algorithm: 


a.  Arrange  the  symbol  probabilities  p,-  in  a  decreasing  order,  and 
consider  them  as  leaf  nodes  of  a  tree. 

b.  While  there  is  more  than  one  node: 

(1)  Merge  the  two  nodes  with  smallest  probability  to  form  a  new 
node  whose  probability  is  the  sum  of  the  two  merged  nodes. 

(2)  Arbitrarily  assign  I  and  0  to  each  pair  of  branches  merging  into 
a  node. 

c.  Read  sequentially  from  the  root  node  to  the  leaf  node  where  the 
symbol  is  located. 

The  actual  achieved  compressed  data  rate  is  2.71  bits/pixel  and  can  be  de¬ 
termined  as  follows: 


0.30* 

2  bits 

=  0.60 

0.23* 

2  bits 

=  0.46 

0.15* 

3  bits 

=  0.45 

0.08* 

3  bits 

=  0.24 

0  06* 

4  bits 

=  0 

0.06* 

4  bits 

=  0.24 

0.06* 

4  bits 

=  0.24 

0.06* 

4  bits 

=  0.24 

Total 

=  2.71 

bits/symbol 

The  coding  sequence  from  Figures  1  and  2  follows: 
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Figure  1 .  Construction  of  a  binary  Huffman  code  proceeds  from  right  to 
left.  At  each  section  the  tow  bottom-most  branches  are  com¬ 
bined  to  form  a  node  and  followed  by  a  reordering  of  probabili¬ 
ties  into  descending  order.  These  probabilities  are  then  used 
to  start  the  next  section 


Figure  2.  After  the  code  construction,  the  tree  is  rearranged  to  eliminate 
crossovers,  and  coding  proceeds  from  left  to  right.  At  each 
node  a  step-up  produces  a  zero  and  a  step-down  a  one.  Re¬ 
sulting  code  words  are  shown  at  the  right  for  each  of  the  eight 
levels.  Note  that  no  code  word  is  a  prefix  of  any  other  code 
word 
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In  high  performance  data  compression,  Huffman  encoding  faces  a  sig¬ 
nificant  problem.  The  program  has  to  pass  a  complete  copy  of  the  coding 
statistics  to  the  expansion  program.  For  a  Huffman  Order-0  encoder,  there 
are  8  bits/byte,  and  the  probability  table  that  is  passed  to  the  decoder  may 
occupy  as  little  as  256  bytes.  However,  a  Huffman  Order-0  encoder  some¬ 
times  cannot  achieve  compression  rates  close  to  the  entropy  given  in  Equa¬ 
tion  1.  A  Huffman  Order- 1  encoder  groups  the  symbols  into  16-bit  words 
but  boosts  the  statistics  table  from  256  to  65,536  bytes.  Though  compres¬ 
sion  ratios  will  undoubtedly  improve  when  moving  to  order- 1,  the  over¬ 
head  of  passing  the  statistics  table  will  probably  nullify  any  gains. 

Adaptive  Huffman  encoding  solves  this  situation  without  paying  any 
penalty  for  added  statistics.  It  does  so  by  adjusting  the  Huffman  tree 
based  on  data  previously  seen,  with  no  knowledge  about  future  statistics. 
When  using  an  adaptive  model,  the  pixel  information  does  not  have  to  be 
scanned  once  in  order  to  generate  statistics.  Instead,  the  statistics  are  con¬ 
tinually  modified  as  new  characters  are  read  in  and  encoded.  A  more  de¬ 
tailed  discussion  of  Adaptive  Huffman  coding  can  be  obtained  from  a 
study  by  Nelson  (1991). 


Arithmetic  Coding 

Arithmetic  coding  is  a  lossless  technique  that  can  compress  below  the 
entropy  level.  It  generally  provides  10  to  20  percent  better  compression 
than  Huffman.  The  output  from  an  arithmetic  process  is  a  single  number 
less  than  1  and  greater  than  or  equal  to  0.  This  single  number  can  be 
uniquely  decoded  to  exactly  recreate  the  original  byte  stream. 

To  construct  the  output  number,  the  symbols  are  assigned  a  set  of  prob¬ 
abilities.  The  message  “KING  HENRY”  would  have  a  probability  distribu¬ 
tion  as  follows: 


Character 

Probability 

Space 

1/10 

E 

1/10 

G 

1/10 

H 

1/10 

1 

1/10 

K 

1/10 

N 

2/10 

R 

1/10 

Y 

1/10 
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Individual  characters  can  now  be  assigned  along  a  probability  line  as 
follows: 


Character 


Space 


E 


G 


H 


Probability 

Range 

1/10 

0.00  &r>  0.10 

1/10 

0.10  S  r  >  0.20 

1/10 

0.20  ^  r  >  0.30 

1/10 

0.30  S  r  >  0.40 

1/10 

0.40  >  r  >  0.50 

1/10 

0.50  ^  r  >  0.60 

2/10 

0.60  >  r  >  0.80 

1/10 

0.80  ^  r  >  0.90 

1/10 

0.90>r>1.00 

The  most  significant  portion  of  an  arithmetic  encoded  message  belongs 
to  the  first  symbol,  or  “K,”  in  the  message  “King  Henry.”  To  decode  the 
first  character  properly,  the  final  encoded  message  has  to  be  a  number 
greater  than  or  equal  to  0.5,  and  less  than  0.6.  Therefore,  the  low  end  for 
this  range  is  0.5,  and  the  high  end  is  0.6.  During  the  rest  of  the  encoding 
process,  each  new  symbol  will  further  restrict  the  possible  range  of  the 
output  number.  The  next  character  to  be  encoded,  the  letter  “I,”  has  a 
range  from  0.4  to  0.5  in  the  subrange  0.5  to  0.6.  Applying  this  logic  will 
further  restrict  the  number  to  the  range  of  0.54  to  0.55.  Continuing  this 
process  results  in  the  final  low  value  of  0.5464063556,  which  will 
uniquely  decode  into  “KING  HENRY,”  as  tabulated  below. 


New  Character 


K 


Low  Value 


High  Value 


.6 


0.54 

0.55 

0.546 

0.548 

0.5464 

0.5466 

0.54640 

0.54642 

0.546406 

0.546408 

0.5464062 

0.5464064 

0.54640632 

0.54640636 

0.546406352 

0.546406356 

0.5464063556 

0.546406356 
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Arithmetic  coding  is  best  accomplished  using  32-bit  binary  integral 
math.  The  decimal  point  is  implied  at  the  left  side  of  the  word.  The  ini¬ 
tial  value  of  HIGH  is  $FFFFFFFF,  and  LOW  is  $00000000.  Decoding  is 
accomplished  by  first  transmitting  a  table  of  statistics  to  the  decoder  and 
then  by  transmitting  a  series  of  integers  to  be  decoded.  Typically,  arithme¬ 
tic  coding  is  not  used  in  shareware  since  IBM  holds  the  patent  for  this 
technique. 


Lempel,  Ziv,  Welch  (LZW)  Compression 

The  LZW  compression  is  related  to  two  compression  techniques  known 
as  LZ77  and  LZ78.  LZ77  is  a  “sliding  window”  process  in  which  the  dic¬ 
tionary  consists  of  a  set  of  fixed-length  phrases  found  in  a  “window”  in 
the  previously  processed  text.  The  size  of  the  window  is  generally  some¬ 
where  between  2-K  and  16-K  bytes,  with  the  maximum  phrase  length  rang¬ 
ing  from  perhaps  16  to  64  bytes.  LZ78  takes  a  completely  different 
approach  to  building  a  dictionary.  Instead  of  using  fixed-length  phrases 
from  a  window  in  the  text,  LZ78  builds  phrases  up  one  symbol  at  a  time, 
adding  a  new  symbol  to  an  existing  phrase  when  a  match  occurs. 

The  LZ77  technique  has  a  major  performance  bottleneck.  When  encod¬ 
ing,  it  has  to  perform  string  comparisons  against  the  look-ahead  buffer  for 
every  position  in  the  text  window.  As  LZ77  tries  to  improve  compression 
performance  by  increasing  the  size  of  the  window  (and  thus  the  diction¬ 
ary),  this  performance  bottleneck  only  gets  worse.  LZSS  seeks  to  avoid 
some  of  the  performance  problems  in  the  LZ77  algorithm.  Under  LZ77, 
the  phrases  in  the  text  window  were  stored  as  a  single  contiguous  block  of 
text,  with  no  other  organization  on  top  of  it.  LZSS  still  stores  text  in  con¬ 
tiguous  windows,  but  it  creates  an  additional  data  structure  that  improves 
on  the  organization  of  the  phrases.  As  each  phrase  passes  out  of  the  look¬ 
ahead  buffer  and  into  the  encoded  portion  of  the  test  windows,  LZSS  adds 
the  phrase  to  a  tree  structure.  The  savings  created  by  using  the  tree  not 
only  make  the  compression  side  of  the  algorithm  much  more  efficient  but 
also  encourage  experimentation  with  longer  window  sizes.  Doubling  the 
size  of  the  text  window  now  might  only  cause  a  small  increase  in  the  com¬ 
pression  time;  whereas,  before  it  would  have  doubled  it. 

The  LZ78  technique  is  similar  to  LZ77  but  abandons  the  concept  of  a 
text  window.  Under  LZ77,  the  dictionary  of  phrases  was  defined  by  a 
fixed  window  of  previously  seen  text.  With  LZ78,  the  dictionary  is  a  po¬ 
tentially  unlimited  list  of  previously  seen  phrases.  An  improved  LZ78  al¬ 
gorithm  in  which  the  phrase  dictionary  is  preloaded  with  single-symbol 
phrases  equal  to  the  number  of  symbols  in  the  alphabet  is  LZW.  However, 
LZW  never  outputs  single  characters,  only  phrases. 

The  LZW  compression  is  shown  using  “BET  BE  BEE  BED  BEG”  as 
the  input  stream.  The  quotation  marks  are  used  only  to  indicate  that  the 
character  stream  begins  with  a  “space.”  The  first  256  codes  (0  to  255)  are 
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not  shown  since  the  following  tabulation  is  generated  by  LZW  as  an 
appendum  to  the  first  256  characters. 


— 

Step 

Character 

Code  Output 

New  Code 

1 

Space 

none 

[already  in  table] 

2 

B 

ASCII  for  space 

space  B  at  (256) 

3 

E 

ASCII  for  B 

BE  at  (257) 

4 

T 

ASCII  for  E 

ET  at  (258) 

5 

Space 

ASCII  for  T 

T  space  at  (259) 

6 

B 

none 

[space  B  already  in  table] 

7 

E 

256 

space  BE  at  (260) 

8 

Space 

ASCII  for  E 

E  space  at  (261 ) 

9 

B 

none 

[space  B  already  in  table] 

10 

E 

none 

[space  BE  already  in  table] 

11 

E 

260 

BEE  space  (262) 

12 

Space 

none 

[E  space  already  in  table] 

13 

B 

261 

E  space  B  at  (263) 

14 

E 

none 

[BE  already  In  table] 

15 

D 

257 

BED  at  (264) 

16 

Space 

0 

D  space  at  (265) 

17 

B 

none 

[space  B  already  in  table] 

18 

E 

none 

[space  BE  already  in  table] 

19 

T 

260 

BET  at  (266) 

20 

<EOF> 

ASCII  for  T 

The  first  seven  steps  in  this  sequence  are  explained  as  follows: 

Step  1 :  A  “space”  is  read.  The  ASCII  value  for  “space”  is  already 
contained  in  the  table.  No  action  is  taken. 

Step  2:  A  “B”  is  read.  There  is  no  “space  B”  combination  in  the 

table.  The  ASCII  value  for  “space”  is  output,  and  “space  B” 
is  assigned  code  256. 
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Step  3:  An  “E”  is  read.  There  is  no  “BE”  combination  in  the  table,  so 
“BE”  is  assigned  code  257  and  the  ASCII  value  for  “B”  is 
output. 

Step  4:  A  “T”  is  read.  There  is  no  “ET”  combination  in  the  table,  so 
“ET”  is  assigned  code  258  and  the  ASCII  value  for  “E”  is 
output. 

Step  5:  A  “space”  is  read.  There  is  no  “T  space”  combination  in  the 
table,  so  “T  space”  is  assigned  code  259  and  the  ASCII  value 
for  “T”  is  output. 

Step  6:  A  “B”  is  read.  The  combination  “space  B”  already  exists  in 
the  table,  so  no  action  is  required. 

Step  7:  An  “E”  is  read.  The  combination  “space  BE”  is  assigned 
code  260,  and  code  256  for  “space  B.” 

The  LZW  decompressor  takes  the  stream  of  codes  from  the  compres¬ 
sion  algorithm  and  uses  them  to  recreate  the  exact  input  stream.  One  rea¬ 
son  for  the  efficiency  of  the  LZW  algorithm  is  that  it  does  not  need  to 
pass  the  dictionary  to  the  decompressor  since  the  table  can  be  built  ex¬ 
actly  as  it  was  during  compression,  using  the  input  stream  as  data.  This 
step  is  possible  because  the  compression  algorithm  always  outputs  the 
phrase  and  character  components  of  a  code  before  it  uses  it  in  the  output 
stream,  so  the  compressed  information  is  not  burdened  with  carrying  a 
large  dictionary.  Typically  12-bit  codes  words  will  be  used  in  an  LZW  al¬ 
gorithm  for  4,096  possible  phrases  to  accommodate  the  standard  256  eight- 
bit  character  set  plus  the  additional  phrases  that  are  constructed  as  the 
input  stream  is  processed.  The  patent  for  LZW  is  assigned  to  Unisys, 
which  has  made  public  its  intention  to  protect  its  intellectual  property 
rights.  The  LZW  compression  is  defined  as  part  of  the  CCITT  V.42  bis 
specification,  and  Unisys  has  defined  specific  terms  under  which  it  will  li¬ 
cense  the  algorithm  to  modem  manufacturers.  It  has  not  stated  that  it  will 
apply  the  same  terms  to  any  parties  manufacturing  other  types  of  products. 


Lossless  Compression  Tests  Results 

At  the  U.S.  Army  Engineer  Waterways  Experiment  Station  (WES), 
tests  were  run  on  six  lossless  compression  routines.  The  results  of  the 
tests  are  given  in  Table  2.  The  compression  time  and  performance  is 
given  for  each  file  and  package.  The  first  three  files  are  executable  pro¬ 
grams.  The  next  two  are  text  files.  JBARB2Y.COL  and  JGOLDY.COL 
are  8-bit  grayscale  images.  The  last  four  files  are  8-bit  RGB  color  im¬ 
ages.  The  source  and  compiled  codes  for  the  following  programs  are  avail¬ 
able  from  a  floppy  disk  entitled  “Software  listings”  (1991).  ARC,  ZIP, 
and  COMPRESS  implement  variations  of  the  LZW  algorithm.  The  high¬ 
est  performance  package  (in  terms  of  compression)  is  LHARC  by 
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Table  2 

Lossless  Compression 


Test  Results 


FILE 

ARC 

LHARC 

ZOO 

ZIP 

COMPRESS 

WP.EXE 

2.55s 

6.35s 

5.11s 

3.53s 

23.55s 

244.736 

222,275 

175,828 

223,621 

176,564 

230,025 

100% 

90.8% 

71.8% 

91 .4% 

72.1% 

94.0% 

WS.EXE 

1.78s 

2.40s 

2.20s 

1.34s 

5.84s 

78,336 

69,158 

60,704 

75,191 

61,982 

74,007 

100% 

88.3% 

77.5% 

96.0% 

79.1% 

94.5% 

PROCOMM.EXE 

1.85s 

4.60s 

2.78s 

2.90s 

11.30s 

165,296 

104,312 

82,072 

103,510 

80,782 

105,895 

100% 

63.1% 

49.7% 

62.6% 

48.9% 

64.1% 

SILVERD.DOC 

7.18s 

35.17s 

11.29s 

24.71s 

62.44s 

1 ,096,064 

403,771 

365,080 

412,111 

359,696 

363,231 

100% 

36.8% 

33.3% 

37.6% 

32.8% 

33.1% 

REGISTER.TXT 

0.66s 

0.66s 

0.69s 

0.55s 

1.00s 

6,801 

3,478 

2,903 

3,645 

2,946 

3,476 

100% 

51.1% 

42.7% 

53.6% 

43.2% 

51.1% 

BARB2Y.COL 

6.40s 

11.71s 

10.59s 

5.92s 

38.78s 

403,200 

377,351 

352,790 

412,625 

373,014 

381,029 

100% 

93.6% 

87.5% 

102% 

92.5% 

94.5% 

QOLDY.COL 

4.40s 

11.03s 

7.53s 

6.40s 

36.9s 

403,200 

373,323 

339,233 

372,283 

350,122 

350,123 

100% 

92.5% 

84.1% 

92.3% 

86.8% 

86.8% 

BARB.RGB 

3.21s 

13.51s 

4.28s 

9.54s 

25.6s 

403,200 

150,193 

152,410 

152,041 

165,471 

146,998 

100% 

37.3% 

37.8% 

37.7% 

41.0% 

36.5% 

GOLD.RGB 

2.73s 

14.78s 

3.84s 

13.73s 

20.72s 

403,200 

122,381 

124,775 

119,857 

135,986 

119,843 

100% 

30.3% 

30.9% 

29.7% 

33.7% 

29.7% 

BOATS.RGB 

2.65s 

19.79s 

3.53s 

14.87s 

17.92s 

403,200 

94,844 

98,351 

95,231 

106,958 

96,405 

100% 

23.5% 

24.4% 

23.6% 

26.5% 

23.9% 

BOARO.RGB 

2.67s 

15.93s 

3.59s 

14.29s 

19.09s 

403,200 

107,201 

108,918 

107,458 

118,593 

105,775 

100% 

26.6% 

27.0% 

26.7% 

1 

29.4% 

26.2% 

ENTROPY 


222,383 


90.8% 


69,214 


88.4% 


129,729 


78.5% 


586,292 


53.5% 


377,173 


93.5% 


380,240 


94.3% 


248,399 


61 .6% 


235.154 


58.3% 


204,358 


50.6% 


218,287 


54.1% 
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Haruyasu  Yoshizaki  which  is  built  on  an  LZ77  algorithm  using  a  dictio¬ 
nary-based  method  on  a  sliding  window  that  moves  through  the  text.  All 
of  these  packages  are  compared  against  standard  entropy  coding  (Table  2) 
which  consistently  provided  the  worst  compression. 

Under  each  routine  in  Table  2,  compression  time  is  shown  in  seconds 
for  an  IBM  compatible  486/33Mhz  PC.  The  next  two  rows  show  the  file 
size  after  compression  and  the  size  of  the  compressed  file  as  a  percentage 
of  the  original. 


Exact  Coding  of  Difference  Fiies 

If  a  pixel  by  pixel  difference  file  is  created  from  an  original  image, 
then  Huffman  encoding  can  be  used  to  give  a  lossless  compression  at  ra¬ 
tios  that  can  exceed  the  other  lossless  techniques  in  Table  2.  The  first 
pixel  was  retained  as  its  original  value,  and  all  the  other  8-bit  values  repre¬ 
sent  the  differences  between  the  previous  pixel  and  the  present  pixel.  The 
following  code  section  shows  how  overflow  programming  can  avoid  9-bit 
differences; 

90  a$  =  INPUTS (1,1) 

110  a  =  ASC(a$)  -  128 
115  c  =  a  -  olda 

123  IF  c  >  127  THEN  c  -  c  -  256 

124  IF  c  <  -128  THEN  c  =  256  +  c 
130  PRINT  #2,  CHR$(c  +  128); 

140  olda  =  a 
150  GOTO  90 


File  (403,200) 

Compressed  Size 

JBARB2Y.COL 

300.681 

JGOLDY.COL 

257,544 

BARB.RGB 

164,107 

GOLO.RGB 

125,458 

BOATS.RGB 

106,120 

BOARD.RGB 

127,346 
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2  Lossy  Compression 
Techniques 


The  Fourier  Transform 


Lossy  compression  methods  are  useful  for  image  compression  and  are 
often  based  on  the  Fourier  transform.  In  general,  a  two-dimensional  (2-D) 
Fourier  transform  of  an  image  will  produce  a  large  number  of  coefficients 
close  to  zero.  For  example,  if  95  percent  of  the  transform  coefficients  can 
be  approximated  by  zero,  then  the  image  may  be  adequately  represented 
using  only  5  percent  of  the  Fourier  coefficients.  The  sparse  matrix  that  re¬ 
sults  is  usually  Huffman  encoded.  Although  LZW  and  Arithmetic  codes 
generally  provide  more  compression  than  Huffman,  the  latter  tends  to 
work  better  on  sparse  data  files  that  contain  a  large  number  of  common 
values. 

A  2-D  Fourier  Transform  is  required  for  image  files  since  images  are 
2-D.  The  2-D  transform  is  equivalent  to  taking  the  1-D  transform  of  each 
row,  and  then  taking  the  1-D  transform  of  each  column,  for  an  image  ma¬ 
trix.  The  problem  with  the  Fourier  Transform  is  that  it  leaves  us  with  a 
real  component  and  an  imaginary  component  for  each  pixel  in  the  image. 
By  symmetrically  extending  the  image  before  taking  the  2-D  Fourier  trans¬ 
form,  the  imaginary,  or  sine,  terms  can  be  forced  to  zero. 

Assume  an  image  is  represented  by  the  4x4  matrix,  U,  such  that 


127 

123 

119 

110 

{U\  = 

115 

11 

103 

98 

99 

87 

85 

83 

94 

82 

81 

79 

L 


The  2-D  Fourier  Transform  will  produce  32  terms,  or  a  real  term  (co¬ 
sine)  and  an  imaginary  term  (sine)  for  each  of  the  16-pixel  values  in  the 
matrix.  By  symmetrically  extending  U,  either  the  cosine  terms  or  the  sine 
terms  can  be  forced  to  be  identically  zero. 

A  symmetrical  extension  of  U  given  by 
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0 

0 

0 

0 

0 

0 

0 

0 

0 

127 

123 

119 

110 

119 

123 

127 

0 

115 

111 

103 

98 

103 

111 

115 

0 

99 

87 

85 

83 

85 

87 

99 

0 

94 

82 

81 

79 

81 

82 

94 

0 

99 

87 

85 

83 

85 

87 

99 

0 

115 

111 

103 

98 

103 

111 

115 

0 

127 

123 

119 

110 

119 

123 

127 

will  produce  only  nonzero  cosine  coefficients  under  a  2-D  Fourier  Transform. 

This  modification  of  the  Fourier  Transform  is  called  a  Cosine  Trans¬ 
form  and  allows  the  matrix  U  to  be  fully  represented  by  16  unique  coeffi¬ 
cients,  most  of  them  close  to  zero.  If  a  2-D  Fast  Fourier  Transform  is 
performed  on  the  symmetrically  extended  matrix,  the  results  are  equiva¬ 
lent  to  a  Fast  Cosine  Transform.  It  is  important  to  note  that  the  coeffi¬ 
cients  produced  by  a  Cosine  Transform  are  not  the  same  as  the  real  part  of 
the  Fourier  Transform  applied  to  the  original  matrix,  U. 

An  antisymmetric  extension  of  U  given  by 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

127 

123 

119 

110 

-127 

-123 

-119 

-110 

0 

115 

111 

103 

98 

-115 

-111 

-103 

-98 

0 

99 

87 

85 

83 

-99 

-87 

-85 

-83 

0 

94 

82 

81 

79 

-94 

-82 

-81 

-79 

0 

-127 

-123 

-119 

-110 

127 

123 

119 

no 

0 

-115 

-111 

-103 

-98 

115 

111 

103 

98 

0 

-99 

-87 

-85 

-83 

99 

87 

85 

8j 

0 

-94 

-82 

-81 

-79 

94 

82 

81 

79_ 

will  produce  only  nonzero  sine  coefficients  under  a  2-D  Fourier  Transform. 
This  modification  of  the  Fourier  Transform  is  called  a  Sine  Transform. 


Representation  of  8-Bit  images 

The  images  used  in  this  article  are  raw  8-bit  grayscale  images.  The 
word  “raw”  is  used  to  enforce  the  idea  that  there  is  no  header  on  the  file. 
The  test  image  used  for  lossy  compression,  DBSJ.4,  contains  448  columns 
and  280  rows  for  a  total  of  125,540  bytes.  Each  byte  controls  the  gray¬ 
scale  intensity  of  a  pixel  on  the  screen  with  0  representing  black  and  255 
representing  white,  for  a  total  of  256  shades  of  gray.  A  separate  palette 
file  controls  whether  the  image  is  grayscale  or  color.  The  palette  files 
used  with  the  program  “Image”  consist  of  768  bytes,  or  256  bytes  for  the 
color  red,  256  bytes  for  green,  and  256  bytes  for  blue.  If  a  grayscale 
image  is  desired,  then  the  palette  “gray.pal”  is  used  and  includes  identical 
256-byte  segments  for  red,  green,  and  blue.  The  actual  computation  of  the 
color  of  each  pixel  in  an  RGB  image  can  be  seen  easily  in  line  380.  For 
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color  images,  bits  5.  6,  and  7  determine  the  intensity  of  the  red  compo¬ 
nent;  bits  2,  3,  and  4  define  the  green  intensity;  and  bits  0  and  I  provide 
four  levels  of  blue.  The  palette  file  defines  the  mapping  of  the  red,  green, 
and  blue  bits  to  various  intensity  levels.  VGA  (Video  graphic  adapter) 
mode  1 3  is  set  up  in  line  220  for  320x200  resolution  with  2S6  colors,  or 
shades  of  gray,  depending  on  the  palette  that  is  selected.  The  program 
“Image”  is  useful  for  displaying  an  image  prior  to  compression,  and  then 
showing  the  degradation  caused  by  a  lossy  compression/decompression 
routine. 

While  the  program  “Image”  can  let  the  user  visually  determine  the  qual¬ 
ity  of  a  reconstructed  image  by  comparison  to  the  original,  the  program 
“MSE”  computes  the  mean-square-error  between  the  original  image  and 
the  reconstructed  image  to  provide  an  analytical  measure  of  quality.  The 
mean-square-error  is  defined  as 


where  X^.  is  the  i‘**  pixel  in  the  original  image,  X/  is  the  i^**  pixel  in  the  re¬ 
constructed  image,  and  N  is  the  number  of  pixels.  In  general,  a  MSE  of 
five  or  less  indicates  very  little  loss  of  detail. 

The  Discrete  Cosine  Transform  (DCT) 

The  DCT  is  simply  a  separate  mathematical  method  for  generating  the 
Cosine  Transform  without  explicitly  using  the  Fourier  Transform.  It  is 
based  on  defining  a  matrix  [C]  such  that 

C(kji)  =  for  k,n=^ 

C{k/i)  =  cos  71  •  (2  •  ^  +  1)  •  ”  1  otherwise 
N  2-  N\ 

If  an  image  is  divided  into  blocks  of  size  8x8,  then  the  matrix  C  must  also 
be  8x8  and  becomes 
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0.35355  0.35355  0.35355  0.35355  0.35355  0.35355  0.35355  0.35355' 
0.49039  0.41573  0.27778  0.0975  -0.0975-0.27778-0.41573-0.49039 

0.46193  0.19134-0.19134-0.46193-0.46194-0.19134  0.19133  0.46193 
0.41573-0.09754-0.49039-0.27778  0.27778  0.49039  0.09754-0.41573 
0.35355-0.35355-0.35355  0.35355  0.35355-0.35355-0.35355  0.35355 
0.27778-0.49039  0.09754  0.41573-0.41573-0.09754  0.49039-0.27778 
0.19134-0.46194  0.46193-0.19133-0.19134  0.46194-0.46193  0.19133 
0.09754-0.27778  0.41573-0.49039  0.49039-0.41573  0.27777-0.09754 

If  a  matrix  U  represents  the  pixels  in  an  8x8  block  of  an  image,  then  the 
DCT  is  define  by  the  equation 

[V]  =  [q[t/][C^]  (3) 

using  matrix  multiplication  and  [C^]  as  the  transpose  of  matrix  [C].  [V] 
becomes  a  sparse  matrix  with  few  large  coefficients.  For  example, 

'48  48  51  53  54  54  57  62' 

50  51  52  52  57  59  59  63 

51  52  55  56  59  61  62  67 

.  _  53  55  57  57  62  64  63  66 

^  ^  56  58  57  60  65  67  68  68 

56  59  61  63  66  66  70  72 
60  61  64  65  67  70  72  72 
62  62  65  70  69  70  73  76 

which  represents  the  first  8x8  subblock  in  the  grayscale  test  file  DBSJ.4. 

The  actual  transform  file,  V,  is  rounded  to  integer  values  and  becomes 

'61  -5  0  0  0  0  0  o' 

-5  0000000 
0  0000000 
0  0000000 
^  ^  0  0000000 
0  0000000 
0  0000000 
0  0000000 

which  contains  a  large  number  of  zeroes,  but  retains  almost  all  of  the  in¬ 
formation  in  the  original  subimage  [C/].  Entropy  analysis  of  the  original 
matrix  [t/]  reveals  that  a  compression  of  1.77  to  1  is  possible  using  Huff¬ 
man  encoding  (as  shown  by  running  ENTROPY.EXE).  However,  a  com¬ 
pression  of  25.6  to  1  is  possible  using  Huffman  encoding  of  the  matrix 
[V].  This  method  is  the  basis  of  the  Joint  Photographic  Expert  Group 
(JPEG)  algorithm  in  which  images  are  divided  into  8x8  subblocks;  each 
subblock  is  processed  independently  by  a  DCT  algorithm,  and  then  the  re¬ 
sulting  file  is  Huffman  encoded. 
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The  inverse  DCT  can  be  used  to  regenerate  an  approximation  to  the 
matrix  [(/]  using  the  equation 

m  =  [C^]  [V]  [q  (4) 

where  [(/']  represents  the  reconstructed  image.  Using  the  inverse  DCT, 
the  matrix  [U'\  becomes 


47 

48 

50 

53 

55 

58 

60 

61 

48 

49 

51 

54 

57 

59 

61 

62 

50 

51 

53 

56 

58 

61 

63 

64 

53 

54 

56 

58 

61 

64 

65 

67 

55 

57 

58 

61 

64 

66 

68 

69 

58 

59 

61 

64 

66 

69 

71 

72 

60 

61 

63 

65 

68 

71 

73 

74 

61 

62 

64 

67 

69 

72 

74 

75 

which  is  nearly  identical  to  the  original  image  [U]  and  differs  by  a  mean- 
square-error  of  1 .85  indicating  that  visual  differences  will  not  be  percepti¬ 
ble.  A  compression  scheme  using  the  DCT  can  be  summarized  in  the 
following  steps: 

a.  Divide  the  image  into  8x8  blocks. 

b.  Perform  the  DCT  on  each  8x8  block. 

c.  Replace  values  close  to  zero  with  zero. 

d.  Huffman  encode  the  resulting  file. 

Decompression  involves  the  following: 

a.  Huffman  decode  the  compressed  file. 

b.  Perform  the  inverse  DCT  on  each  8x8  block. 

The  entire  DBSJ.4  image  is  shown  in  Figure  3  before  and  after  com¬ 
pression  at  a  rate  of  25:1.  The  programs  DCT.BAS  and  INVDCT.BAS 
were  used  for  the  transformations.  The  final  compression  of  25:1  was 
achieved  by  truncating  any  DCT  coefficients  less  than  five  to  zero  and 
then  entropy  encoding  of  the  remaining  DCT  coefficients. 

The  JPEG  algorithm  is  basically  an  8x8  DCT  with  some  enhancements. 
JPEG  is  generally  considered  feasible  for  compression  of  still  images  in 
the  10:1  to  25:1  range.  Another  standard.  Motion  Picture  Expert  Group 
(MPEG),  is  used  for  motion  video  and  exploits  the  images  differences 
frame-by-frame.  MPEG  is  considered  feasible  for  the  compression  of  real¬ 
time  video  images  at  the  rate  of  50:1 . 
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Figure  3.  These  photographs  show  the  original  image  (top),  and  the  restored  (bottom) 
after  25:1  compression  (MSE  =  25.39  using  a  threshold  level  of  5  in  the  DCT 
coefficient  matrix) 
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The  program,  DCT.BAS,  performs  the  DCT  on  any  grayscale  image 
nie.  X  and  Y  dimensions  are  required  as  input  parameters.  The  output  file 
is  given  the  extension  .DCT. 

The  .DCT  file  is  a  binary  file.  The  user  can  perform  Huffman  encod¬ 
ing  directly  on  this  file  to  achieve  a  high  level  of  compression.  Even 
higher  levels  of  compression  can  be  obtained  by  defining  a  threshold  level 
in  the  .DCT  file  such  that  coefficients  below  the  threshold  are  replaced  by 
zero  before  Huffman  encoding. 

An  inverse  DCT  can  be  obtained  using  INVDCT.BAS.  This  program  is 
very  similar  to  DCT.BAS.  The  major  change  is  that  the  indices  of  matrix 
[C]  are  swapped  in  lines  630  and  730.  Since  matrix  [C]  is  orthogonal,  the 
transpose  of  [C]  is  identical  to  the  inverse  of  [C].  The  quality  of  the  resto¬ 
ration  depends  on  the  threshold  level  set  previously  for  the  truncation  of 
the  DCT  coefficients.  These  two  programs  will  also  handle  other  types  of 
transforms  including  Hadamard  and  Sine  transforms  simply  by  modifying 
the  subroutine  that  defines  the  transform  matrix  [C],  The  Hadamard  and 
Sine  transforms  do  not  provide  as  much  compression  as  the  Cosine  trans¬ 
form,  so  their  discussion  is  presented  in  a  study  by  Jain  (1989). 


JPEG  and  MPEG 

While  the  JPEG  algorithm  was  defined  for  still  images  and  is  based  on 
the  DCT,  MPEG  is  meant  primarily  for  motion  video  and  obtains  addi¬ 
tional  compression  by  exploiting  interframe  redundancy.  Basically,  if  an 
NxN  pixel  block  changes  very  little  in  successive  frames,  then  the  DCT  co¬ 
efficients  saved  from  a  previous  frame  can  be  reused  to  represent  the 
pixel  values.  The  basis  for  many  proposed  HDTV  systems  is  MPEG. 

The  JPEG  algorithm  processes  8-bit  color  RGB  (red,  green,  blue)  im¬ 
ages  by  first  translating  from  RGB  to  Y-Cff-C^.  For  example,  an  original 
512x512  eight-bit  RGB  color  image  contains  262,144  bytes.  The  three 
most  significant  bits  define  the  RED  intensity.  The  next  three  bits  define 
the  GREEN  intensity,  and  the  lowest  two  bits  determine  the  BLUE  inten¬ 
sity.  In  preparation  for  Y-Cij-C^  conversion,  three  temporary  512x512 
files  are  created  including  a  512x512  file  for  the  RED  component  which 
consists  of  the  three  most  significant  bits  (MSBs)  corresponding  to  red 
padded  with  five  zeroes,  a  512x512  file  for  the  GREEN  component  which 
consists  of  the  three  bits  for  green  moved  to  the  most  significant  position 
and  padded  with  five  zeroes,  and  a  512x512  file  for  the  BLUE  component 
which  consists  of  the  two  bits  for  blue  moved  to  the  most  significant  posi¬ 
tion  and  padded  with  six  zeroes.  The  translation  format  from  RGB  to  Y~ 
Cf,-Cf  is  shown  as 
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^  =  0.299  •  RED  +  0.587  •  GREEN  +  0.114  •  BLUE 


=  -0.16874-  RED  -  0.33126-  GREEN  +  0.5  -  BLUE 

=  0.5  -  RED  -  0.41869-  GREEN  -  0.08131  -  BLUE 

Each  of  the  resulting  Y,  C^,  and  files  are  also  512x512  eight-bit  files. 
The  Y  component  (luminance)  contains  the  majority  of  the  information 
while  the  bandwidths  of  the  and  components  are  relatively  small  by 
comparison  and  can  therefore  be  compressed  at  a  much  higher  ratio  with¬ 
out  loss  of  information.  A  DCT  can  now  be  done  separately  on  the  Y,  C^, 
and  files.  RGB  format  is  regained  with  the  equations 

RED  =  Y  +  1.402 

GREEN  =  Y  -  0.34414  •  -  0.71414  -  (5) 

BLUE  =  Y  +  1 .772  - 

The  JPEG  algorithm  is  actually  a  modified  DCT  that  includes  DCPM 
encoding  of  the  DC  coefficients,  a  zig-zag  method  of  writing  out  the  DCT 
coefficients,  the  definition  of  a  “quality  factor”  that  defines  the  quantiza¬ 
tion  level  of  the  DCT  coefficients,  quantization  according  to  the  JPEG  vis¬ 
ualization  matrix,  and  Huffman  encoding  of  the  resulting  file.  The  reader 
is  referred  to  Nelson  (1991)  for  complete  details  on  JPEG. 


Singular  Value  Decomposition  (SVD) 

Singular  Value  Decomposition  (SVD)  is  useful  mainly  as  a  gauge 
against  which  to  measure  the  performance  of  other  transform  techniques 
and  in  image  restoration.  The  SVD  concentrates  the  maximum  amount  of 
energy  in  the  fewest  eigenvalues  and  is  optimal  in  the  least  square  sense. 

Let  [(/]  be  an  image  matrix.  The  matrices  {U]\U^]and  [U^][U]  are  non¬ 
negative  and  symmetric  and  have  the  identical  eigenvalues,  {X.^}.  Assum¬ 
ing  that  U  is  an  NxN  matrix  of  N^  pixels,  there  are  at  most  r>N  nonzero 
eigenvalues.  It  is  possible  to  find  r  orthogonal  Nxl  eigenvectors  {4>^}  of 
[U^][U],  and  r  orthogonal  Nxl  eigenvectors  {'P;„}  of  \U][U^],  that  is 


. r 

(6) 

=  . 

(7) 

The  matrix  U  has  the  representation 
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[t/]  = 

fn  nt  nt 

m=\ 


where  'F  and  O  are  Nxr  matrices  whose  m‘^  columns  are  the  vectors  4*^ 
and  respectively,  and  fsP-^  is  an  rxr  diagonal  matrix,  defined  as 


a0-5  = 


trl  . 


(9) 


Equation  8  is  called  the  spectral  representation,  the  outer  product  expan¬ 
sion,  or  the  singular  value  decomposition  (SVD)  of  [t/].  The  nonzero 
eigenvalues  of  [U^]  [U\,  ,  are  also  called  the  singular  values  of  [f/]- 

If  r  <<  A,  then  the  image  containing  samples  can  be  represented  by 
{N  +  N)r  samples  of  the  vectors  ‘^1 . A  • 

Since  T  and  0  have  orthogonal  columns,  the  SVD  transform  of  the 
image  U  is  defined  as 


[U]  = 


(10) 


which  is  a  separable  transform  that  diagonalizes  the  given  image. 

The  image  [(7;^]  generated  by  the  partial  sum 

*  (11) 

m=l 

is  the  best  least  squares  rank-k  approximation  of  [(/]  if  the  are  in  de¬ 
creasing  order  of  magnitude.  For  any  k  <  r  ,  the  least  squares  error 

M  N  (12) 

e*  =  X  X  ,k=l,2, . r 

m=l  n=l 

reduces  to 


r 


m=ik+l 


(13) 


These  equations  show  that  the  energy  concentrated  in  the  transform  co¬ 
efficients  is  maximized  by  the  SVD  transform  for  the  given  image.  As 
an  example. 
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'l  2 

Let  [U]  =  2  \ 

1  3 

The  eigenvalues  of  [IJ^][U]  are  found  to  be  Xj  =  18.06  and  =  1-^4, 
which  give  r  =  2,  and  the  SVD  transform  of  [U]  is 


The  eigenvectors  are  found  to  be 


From  above,  is  obtained  via 


fft 

to  yield 

r  1.120  1.94' 

[t/j]  =  =  0.953  1.62 

1.549  2.70 

as  the  best  least  squares  rank-1  approximation  of  [t/].  The  energy  concen¬ 
trated  in  the  K  samples  of  SVD  is  greater  than  the  energy  concentrated  in 
any  K  samples  of  the  other  transform  methods. 

Example:  Let  [f/]  be  an  NxN  images  matrix.  It  is  desired  to  use  SVD  to 
achieve  a  N:r  compression  using  only  r  of  the  largest  eigen¬ 
values.  The  [f/]  matrix  can  then  be  approximated  as 


0  .  .  0  0  . 
•  '*2 


0  .  .  0  0 


The  total  number  of  coefficients  that  must  be  encoded  and  transmitted  are 
rxN  coefficients  from  matrix  *P  plus  rxN  coefficients  from  matrix  O  or 
2xrxN  coefficients  total,  which  only  achieves  half  of  the  desired  compres¬ 
sion.  A  small  improvement  can  be  obtained  by  recognizing  that  the  columns 
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in  'F  and  the  rows  in  <I>  are  orthogonal.  If  4*  has  r  orthogonal  columns 
such  that 


VJ,  ^ 


4',,  4^,2  .  'I',,  0  .  0 


'J'nl  '*'^2  •  'J'nr  0  •  0 


with  rxN  nonzero  elements,  then  the  rN  elements  of  4^  can  be  recon¬ 
structed  using  the  conditions  for  orthogonality  from  the  matrix  4^'  with 


4*'  = 


0 

4^ 


11 


'*'12  0 


•  o' 
■  0 

•  0 


'*'«2 


•  '*'„;^l  0  •  •  0 


where  4*'  has  rN  -1/2  nonzero  elements.  The  number  of  elements  that 
are  required  to  be  transmitted  are  rxN  - 1/2  r2  for  4^  and  rxN  - 1/2  r2  for  O 
or  r(2N  -  r)  coefficients  total,  as  opposed  to  txN.  Therefore,  a  degradation 
factor,  D,  can  be  computed  as 

D  =  2-/ 

where  r’  equals  r’/N  and  r’ represents  the  percent  compression.  There¬ 
fore,  if  an  attempt  is  made  to  achieve  90  percent  compression  with  SVD 
on  a  data  file  of  size  N^  by  using  only  I/IO'^  of  the  eigenvalues,  the  actual 
size  of  the  data  file  that  has  to  be  transmitted  is  0.7  x  (2  -  0.1)  x  N^,  or  1 9 
percent  of  the  original  size,  so  that  a  compression  of  only  81  percent  is 
achieved. 

Image  compression  using  SVD  is  of  limited  use  for  three  reasons; 

a.  Vast  numbers  of  computations  are  required. 

b.  The  degradation  factor  limits  the  actual  compression  to 
approximately  one  half  of  the  theoretical  limit. 

c.  Each  coefficient  in  the  4^  and  4>  matrices  will  require  more  that  a 
single  byte  of  accuracy. 

Example:  If  the  SVD  transform  of  an  image  matrix,  [U],  produces 
eigenvalues  that  are  zero,  then  by  not  transmitting  these 
zero  eigenvalues  and  their  corresponding  zero  rows  and 
columns  in  4^  and  respectively,  lossless  image 
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compression  can  be  achieved.  If  [(/]  is  an  256x256  matrix 
given  by 


[U] 


0,1.2,3,4,5, . 255 

0.1.2,3.4,5, . 255 

0.1,2,3,4.5 . 255 


0.1,2,3,4,5. . ,255 


then  the  SVD  transform  produces  255  eigenvalues  that  are 
zero  and  one  eigenvalue  that  is  nonzero.  The  (unnormalized) 
4^  and  matrices  become 

'1'^=  [1,1, 1.1. . 1] 


and 


d)  =  [0,1,2,3,4,5,...255] 

The  original  U  matrix  can  be  reconstructed  by  simple  matrix  multiplica¬ 
tion  of  T  and 


All  of  the  energy  is  compacted  into  a  single  eigenvalue  for  a  theoretical 
possible  compression  of  1/256,  but  notice  that  a  total  of  512  bytes  must 
be  transmitted  in  order  to  send  the  256-element  4'  matrix  and  the  256- 
element  matrix.  Therefore,  only  a  compression  of  1/128  can  be  realized 
which  is  consistent  with  the  degradation  factor 


D  =  —  •  (2  -  — )  =  2 
256  ^  256^ 


with  all  the  energy  compressed  into  1/256  of  the  eigenvalues.  Since  the 
other  255  eigenvalues  are  exactly  0,  the  entire  65,536-element  U  matrix 
can  be  reconstructed  exactly  from  512  transmitted  elements.  Huffman  en¬ 
coding  would  not  be  able  to  achieve  any  compression  on  matrix  [(/]  since 
all  of  the  possible  ASCII  values  occur  with  equal  probability. 


Example:  DBSJ.4  represents  a  448  x  280  eight-bit  grayscale  image. 

The  SVD  of  DBSJ.4  was  taken  using  MATLAB.  Figure  4  rep¬ 
resents  the  image  quality  for  a  compression  ratio  of  100:1. 
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Figure  4.  DBSJ.4  images  compressed  with  SVD  at  100:1  with  a  mean-square  error  of 
553 


Fractal  Compression 

Fractal  compression  is  a  new  technique  that  promises  compression 
ratios  of  500:1  without  noticeable  loss  in  image  quality.  It  is  based  on  tak¬ 
ing  a  portion  of  the  image  and  reproducing  the  rest  of  the  image  with  a  set 
of  affine  transformations  that  consist  of  translations,  rotations,  and  scal¬ 
ing.  A  set  of  iterated  function  system  (IFS)  codes  defines  the  image. 

Once  the  IFS  codes  for  an  image  have  been  determined,  then  a  simple  iter¬ 
ated  procedure  is  used  to  regenerate  the  image. 

The  iterated  function  is  defined  by  the  IFS  codes.  Essentially,  X  and  Y 
coordinates  of  the  new  pixel  are  computed  from  X  and  Y  coordinates  of 
the  previous  pixel.  The  IFS  codes  given  below  will  illustrate  the  proce¬ 
dure.  The  program,  IFS. BAS,  will  generate  a  solid  rectangle  from  these 
IFS  codes  in  a  random  and  rather  spectacular  way. 
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IFS  Codes  for  a  Square 

A 

B 

c 

D 

E 

F 

P 

0.5 

0 

0 

0.5 

1 

1 

0.25 

0.5 

0 

0 

0.5 

50 

1 

0.25 

0.5 

0 

0 

0.5 

1 

50 

0.25 

0.5 

0 

0 

0.5 

50 

50 

0.25 

From  the  IFS  codes,  new  values  of  X  and  Y  are  computed  from  one  of 
four  sets  of  equations  as  follows: 


a.  Equation  Set  1 :  New  X  =  AX  +  BY  +  J 

New  Y=CX  +  DY+1 

b.  Equation  Set  2:  New  X  =  AX  +  BY  +  50 

New  y  =  CX  +  DF  +  / 

c.  Equation  Set  3:  New  X  =  AX  +  BY  +  I 

New  Y=CX  +  DY  +  50 

d.  Equation  Set  4:  New  X  =  AX  +  BY  +  50 

New  Y=CX  +  DY  + 50 


The  variable  P  indicates  that  the  probability  that  any  one  set  is  used  to 
compute  the  new  X  and  Y  coordinates  is  0.25.  After  each  iteration  of  one 
set  of  equations,  the  X  and  Y  coordinates  are  plotted,  and  another  set  of 
equations  is  randomly  chosen  to  compute  the  next  point. 

The  procedure  is  illustrated  graphically  in  Figure  5.  The  X  and  Y  coor¬ 
dinates  are  scaled  by  0.5  and  either  a  1  or  50  is  added  to  the  X  and/or  Y 
values.  This  procedure  is  repeated  until  the  entire  rectangle  is  painted. 

Any  image  can  be  reduced  to  sets  of  IFS  codes.  Barnsley  (1988)  pro¬ 
vides  other  IFS  codes  that  can  be  used  with  IFS.BAS  for  more  exotic 
images. 
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Communication  Standards 

An  analog  NTSC  cable  TV  system  requires  6  MHz  per  channel.  It 
might  seem  that  a  compression  of  50: 1  would  reduce  the  bandwidth  by  a 
factor  of  50  (to  120,000  Hz),  but  it  does  not.  Using  an  estimated  resolu¬ 
tion  of  512x480  for  TV  with  8-bit  color  and  a  frame  rate  of  30  times  per 
second,  the  required  bit  rate  for  digital  transmission  is  58,982,000  bits/ 
sec,  or  approximately  60  Mbps.  Since  compression  techniques  are  inher¬ 
ently  digital,  the  6-MHz  analog  signal  was  converted  to  a  60,000,000-bit/ 
sec  digital  signal  and  now  requires  an  absolute  minimum  bandwidth  of 
30  MHz  (based  on  1  bit/symbol).  Compression  by  50:1  would  result  in  a 
total  transmission  bandwidth  of  at  least  600,000  KHz. 

Shannon’s  law  dictates  the  maximum  transmission  speed  of  digital 
data.  This  speed  limit  is  determined  by  only  t>vo  factors,  which  include 
the  bandwidth  of  the  transmission  channel  and  the  signal-to-noise  ratio  of 
the  channel.  In  a  digital  system,  the  maximum  data  rate,  called  the  chan¬ 
nel  capacity  C,  is  bounded  by  Shannon’s  law  which  is  given  by 

C  bit /sec  -  BW \og2 

where  BW  is  the  bandwidth  of  the  channel  in  Hertz.  According  to  this 
equation,  if  there  is  no  noise  in  the  channel  {S/N  =  infinity),  then  the  chan¬ 
nel  capacity  becomes  infinite  regardless  of  the  bandwidth. 

As  an  example,  consider  an  analog  phone  line  with  a  bandwidth  of 
4,000  Hz,  and  assume  that  it  is  digitized  at  8,000  times  per  second  using 
8  bits/byte.  If  no  other  noise  is  present  on  the  line,  the  signal-to-noise 
ratio  will  be  48  dB  since  each  bit  of  resolution  in  the  A/D  convertor  de¬ 
creases  the  quantization  noise  by  6  dB. 

To  use  Shannon’s  law,  the  S/N  ratio  must  be  expressed  in  linear  terms, 
or  S/N  =  10^^*^*  The  channel  capacity  then  becomes 
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C  =  64,000  bits/sec  =  4,000  logj  (^1  +  10^ 

and  will  not  be  affected  by  the  number  of  bits  encoded  in  a  symbol.  The 
theoretical  limit  essentially  states  that  it  is  possible  to  build  dial-up  mo¬ 
dems  that  transmit  without  error  at  rates  up  to  64,000  bits/sec.  Shannon’s 
law  does  not  tell  us  how  to  design  hardware  to  achieve  the  theoretical  max¬ 
imum  bit  rate.  The  common  quadrature  phase  shift  keying  (QPSK)  and 
quadrature  amplitude  modulation  (QAM)  techniques  used  for  modems 
have  inherent  deficiencies  that  will  not  allow  them  to  obtain  the  maximum 
theoretical  bit  rate;  however.  Shannon’s  law  can  be  used  to  determine  the 
theoretical  limit  on  the  channel  capacity. 

The  distinction  between  bit  rate  and  symbol  rate  is  vital  in  determining 
bandwidth  requirements.  The  QPSK  modulation  technique  encodes  two 
bits  in  a  symbol  since  there  are  four  possible  phases  (0,  90,  180,  and 
270  deg)  of  the  carrier.  A  change  of  phase  of  the  carrier  represents  that 
transmission  of  a  single  symbol  (baud)  which  conveys  two  bits  of  informa¬ 
tion  according  to  Table  3: 


Table  3 

QPSK  Modulation 

Differential  Phase 

Dibits 

o« 

00 

90° 

01 

180° 

11 

270° 

10 

Although  it  is  common  to  speak  of  a  1,200  baud  modem,  the  bit  rate  is 
1 ,200  bits/sec  and  the  baud  rate  (with  QPSK  modulation)  is  really 
600  baud. 

The  QAM  varies  both  the  amplitude  and  phase  of  the  carrier  in  order 
to  encode  bits  into  symbols.  The  term  16-QAM  means  the  carrier  can 
assume  one  of  16  possible  states  in  order  to  encode  log2(16),  or  4  bits/ 
symbol.  The  constellation  for  a  16-QAM  carrier  is  shown  in  Figure  6 
where  the  distance  from  the  origin  represents  the  amplitude  of  the  carrier, 
and  the  angle  of  the  point  represents  the  phase  of  the  carrier. 

The  difficulty  with  using  64-QAM,  256-QAM,  or  higher  is  that  the  suscep¬ 
tibility  to  noise  increases  exponentially  as  the  number  of  bits  per  symbol 
is  increased. 
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Figures.  1 6*QAM  constellation 


The  bandwidth  required  for  digital  transmission  of  data  is  given  by 


BW  = 


Data  Rate  (symbols/sec)  •  (1  -f  r) 


where  r  represents  the  Nyquist  rolloff  factor  of  the  raised  cosine  filter  and 
r  falls  between  0  and  1 .  The  basis  for  this  equation  is  given  by  Couch 
(1982). 

In  the  previous  example,  if  the  64,000-bit/sec  data  rate  is  to  be  transmit¬ 
ted  using  frequency  shift  keying  (FSK)  such  that  only  one  bit  is  encoded 
per  symbol,  then  the  symbol  rate  becomes  64,000  symbols/sec.  The  re¬ 
quired  transmission  bandwidth  is  usually  taken  as  ^,000  Hz  (r  =  1)  in 
most  texts,  although  it  can  approach  as  low  as  32,000  Hz  by  using  a  sharp 
cutoff  Nyquist  filter  (r  =  0).  Throughout  the  remainder  of  this  report,  it 
will  be  assumed  that  the  required  minimum  transmission  bandwidth  is  one 
half  of  the  symbol  rate. 

Digital  HDTV  has  a  proposed  resolution  of  1 ,440x960  pixels/frame  x 
12  bits/pixel  x  30  frames/sec  (12  bits/pixel  =  8  bits/pixel  for  luminance  + 

4  bits/pixel  for  chrominance  at  half-resolution).  The  data  rate  is  about 
500  Mbits/sec.  The  aim  of  most  HDTV  systems  is  to  broadcast  at  about 
15  Mbits/sec.  This  data  rate  requires  approximately  33:1  compression. 
Encoding  with  1  bit/symbol  would  require  a  transmission  bandwidth  of 
7.5  MHz.  Encoding  with  4  bits/symbol  would  increase  the  susceptibility 
of  the  transmitted  signal  to  noise  but  would  only  require  a  bandwidth  of 
1.875  MHz,  as  a  minimum. 

The  Common  Intermediate  Format  (CIF)  is  a  common  format  for  transmit¬ 
ting  video  images  at  30  frames/sec  over  a  T1  line  (capacity  1.544  Mbits/sec) 
or  a  Quarter-CIF  (QCIF)  picture  at  10  frames/sec  over  Integrated  Services 
Digital  Network  (ISDN)  telephone  line  (capacity  64  Kbits/sec). 

A  CIF  image  is  composed  of  a  luminance  channel  with  a  resolution  of 
288  lines/frame  x  352  pixels/line  and  8  bits/pixel,  and  two  chrominance 
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channels  (Cf,  and  Cj)  with  half  resolution,  i.e.,  144  lines/frame  x  176  pixels/ 
line  and  8  bits/pixel.  At  30  frames/sec,  the  data  rate  is  36.5  Mbits/sec. 
Transmission  over  a  T1  line  for  video  conferencing  applications  requires  a 
compression  ratio  of  about  24:1.  A  QCIF  image  is  one-fourth  the  size  of  a 
CIF  image  and  at  10  frames/sec  requires  about  3  Mbits/sec.  Thus,  video 
phone  over  ISDN  network  requires  about  48:1  compression. 


Advanced  Digital  Television  (ADTV) 

The  ATDV  was  developed  by  the  Advanced  Television  Research 
Consortium  and  uses  MPEG  compression  to  provide  a  data  rate  of 
24,000,000  bits/sec.  It  has  two  trellis-coded  32-QAM  data  carriers  to 
provide  a  wide  bandwidth  standard  priority  channel  and  a  narrower 
bandwidth  high-priority  channel,  all  within  a  6-MHz  transmission 
bandwidth.  The  high  priority  channel  provides  the  viewable  picture,  and 
the  additional  standard-priority  channel  provides  the  full  HDTV  quality. 
The  ADTV  spectrum  is  shown  in  Figure  7. 


Figure  7.  ATDV  32-QAM  channel  spectrum 

The  ADTV’s  59.94  field  rate  is  identical  to  that  of  the  National  Televi¬ 
sion  Standard  Committee  (NTSC),  thus  eliminating  temporal  artifacts  and 
the  need  for  frame  synchronization  in  mixed  ADTV-NTSC  environments. 
Its  1,440x960,  1,050-line  scanning  format  is  cost-effective  in  the  produc¬ 
tion  studio.  The  2:1  vertical  ratio  with  525-line  NTSC  video  and  2:1  hori¬ 
zontal  ratio  with  the  CCIR  Rec.  601  sampling  standard  used  in  the 
525-line  D1  tape  recorders  offer  economical  transcoding  in  mixed 
ADTV-NTSC  production  environments.  The  16-Mbit  DRAM  frame  mem¬ 
ories  in  an  ADTV  receiver  are  predicted  to  cost  about  $13  each  by  1996. 
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Digital  Spectrum  Compatible  (DSC) 


The  DSC  was  developed  by  Zenith  and  AT&T  to  provide  all  digital  defi¬ 
nition  television  simulcast  by  compressing  the  wide  bandwidth  digital  sig¬ 
nal  into  a  6-MHz  channel.  It  uses  a  unique  four-level  vestigal  sideband 
(4-VSB  or  2  bits/symbol)  modulation  technique  to  assure  noise  free  and  in¬ 
terference  free  reception.  The  4-VSB  coding  is  complemented  by  a  two- 
level  digital  data  system  (2-VSB,  or  1  bit/symbol).  The  resulting  bi-rate 
coding  system  identifies  and  selects  the  most  important  picture  informa¬ 
tion  on  a  scene-by-scene  basis  and  automatically  transmits  that  data  in  a 
two-level  (1  bit/symbol)  binary  mode.  The  two-level  digital  coding  makes 
the  system  far  more  tolerant  to  noise  and  other  interference  at  greater  dis¬ 
tances  from  the  transmitter. 

The  DSC  uses  a  17-Mbps  data  rate  and  a  787.5-line  progressive  scan¬ 
ning  format  to  eliminate  artifacts  due  to  interlacing  video. 


American  Television  Alliance  DIgicipher  (ATVA) 

The  ATVA  was  developed  by  General  Instrument  Corporation  and  pro¬ 
vides  another  alternative  for  squeezing  a  HDTV  signal  into  a  6-MHz 
bandwidth.  Compression  is  based  on  the  DCT  transform.  With  the  ATVA, 
there  are  two  distinct  transmission  modes,  32-QAM  and  1 6-QAM.  The 
broadcaster  can  select  the  mode,  and  the  receivers  can  auto-configure  to 
the  mode  being  transmitted.  The  32-QAM  mode  requires  1 6.5-dB  signal- 
to-noise  ratio  for  error  free  transmission;  whereas,  the  1 6-QAM  mode  re¬ 
quires  only  a  12.5  dB  signal-to-noise  ratio. 

Figure  8  shows  a  block  diagram  of  the  encoder.  The  digital  video  en¬ 
coder  accepts  YUV  (Y  =  luminance,  U  and  V  =  chromaticities)  inputs  with 
16:9  aspect  ratio  and  1,050-line  interlace  (1,050/2:1)  at  a  59.94  field  rate. 
The  YUV  signals  are  obtained  from  analog  RGB  input  by  low-pass  filter¬ 
ing,  A/D  conversion,  and  an  RGB-to-YUV  matrix.  The  sampling  fre¬ 
quency  is  53.65  MHz  for  R,  G,  and  B.  The  digital  video  encoder 
implements  the  compression  algorithm  and  generates  a  video  data  stream. 

The  multiplexer  combines  the  various  data  streams  into  one  data 
stream  at  18.22  Mbps.  The  forward  error  correction  (FEC)  encoder  adds 
error  correction  overhead  bits  and  provides  24.39  Mbps  of  data  to  the 
32-QAM  modulation.  The  symbol  rate  of  the  32-QAM  signal  is  4.88  MHz. 
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Figure  8.  ATVA  encoder  block  diagram 
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4  Achieving  High 
Compression  Ratios 


Adaptive  Cosine  Transforms  Using  Pointers 

The  restored  image  after  25:1  compression  in  Figure  3  is  a  result  of  a 
simple  8x8  DCT  with  thresholding  and  entropy  encoding.  Typically,  Huff¬ 
man  encoding  is  not  done  in  this  report  in  order  to  produce  a  hnal  com¬ 
pressed  file;  rather,  the  entropy  is  calculated  according  to  Equation  1  to 
determine  the  maximum  amount  of  compression  that  can  be  obtained  from 
Huffman  encoding.  If  the  DCT  matrices  are  sparse  and  contain  a  large 
number  of  zero  entries,  then  Huffman  encoding  generally  produces  better 
results  than  Arithmetic,  or  LZW,  but  usually  still  falls  short  of  the  entropy. 
The  results  of  several  lossless  algorithms  applied  recursively  to  different 
files  are  outlined  below. 


File 

Name : 

Mouse. GS 

320x200 

Ideal 

Compression: 

1.438:1 

(Entropy) 

File 

Size : 

64,000  Bytes 

Method: 

Huffman  0- 

■Order 

Recursion  Level 

Size 

Compression  I 

1 

45195 

1.416 

2 

44048 

1.453 

3 

44306 

1.444 

4 

44579 

1.436 

5 

44854 

1.427 

6 

45129 

1.418 

7 

45404 

1.410 

8 

45680 

1.401 

9 

45956 

1.393 
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Method:  Adaptive  Huffman 


Recursion  Level 

Size 

Compression  Ratio 

1 

42617 

1.502 

2 

42527 

1.505 

3 

42850 

1.494 

4 

43163 

1.483 

5 

43476 

1.483 

6 

43789 

1.462 

7 

44110 

1.451 

8 

44431 

1.440 

9 

44751 

1.430 

Method:  LZH 

Recursion  Level 

Size 

Compression  Ratio 

1 

56274 

1.137 

2 

77688 

0.824 

3 

76959 

0.832 

4 

89957 

0.711 

5 

103347 

0.619 

6 

116516 

0.549 

7 

133250 

0.480 

8 

151935 

0.421 

9 

173342 

0.369 

Method: 

Recursion  Level 

Arithmetic 

Size  Compression  Ratio 

1 

44846 

1.427 

2 

45009 

1.422 

3 

45213 

1.416 

4 

45436 

1.409 

5 

45658 

1.402 

6 

45883 

1.395 

7 

46118 

1.388 

8 

46351 

1.381 

9 

46585 

1.374 
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File 

Name : 

Gold. RGB 

720x560 

Ideal 

Compression : 

1.715:1 

(Entropy) 

File 

Size: 

403,208 

Bytes 

Method: 

Huffman  O-Order 

Recursion  Level 

Size  Compression  Ratio 

1 

238121 

1.693 

2 

220184 

1.831 

3 

219391 

1.838 

4 

219705 

1.835 

5 

220040 

1.832 

6 

220379 

1.830 

7 

220714 

1.827 

8 

221054 

1.824 

9 

221393 

1.821 

Method: 

Adaptive  Huffman 

Recursion  Level 

Size 

Compression  Ratio 

1 

199988 

2.016 

2 

186428 

2.163 

3 

186763 

2.159 

4 

187154 

2.154 

5 

187535 

2.150 

6 

187922 

2.146 

7 

188306 

2.141 

8 

188702 

2.137 

9 

189104 

2.132 

Method; 

LZW 

Recursion  Level 

Size 

Compression  Ratio 

1 

194810 

2.070 

2 

265701 

1.518 

3 

276317 

1.459 

4 

322433 

1.251 

5 

363944 

1.108 

6 

415781 

0.970 

7 

471263 

0.856 

8 

538827 

0.748 

9 

614199 

0.656 
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Method:  Arithmetic 


Recursion  Level 

Size 

Compression  Rat 

1 

236437 

1.705 

2 

236572 

1.704 

3 

236817 

1.703 

4 

237063 

1.701 

5 

237305 

1.699 

6 

237551 

1.697 

7 

237795 

1.696 

8 

238041 

1.694 

9 

238283 

1.692 

File  Name: 

Lena. DIO  512x512 

Ideal  Compression: 

26.7:1 

(Entropy) 

File  Size: 

262,144 

Bytes 

Method: 

Huffman  O-Order 

Recursion  Level 

Size 

Compression  Rat 

1 

38319 

6.841 

2 

14285 

18.351 

3 

11864 

22.096 

4 

11921 

21.990 

5 

12164 

21.551 

6 

12423 

21.102 

7 

12676 

20.680 

8 

12934 

20.268 

9 

13191 

19.873 

Method: 

Adaptive  Huffman 

Recursion  Level 

Size 

Compression  Rat 

1 

37821 

6.931 

2 

12993 

20.176 

3 

11382 

23.031 

4 

11546 

22.704 

5 

11837 

22.146 

6 

12135 

21 . 602 

7 

12440 

21.073 

8 

12745 

20.568 

9 

13035 

20.111 
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Method:  LZW 


Recursion  Level  Size  Compression  Ratio 


1 

11492 

22.811 

2 

15326 

17.105 

3 

16601 

15.791 

4 

19665 

13.330 

5 

22337 

11.736 

6 

25553 

10.259 

7 

29169 

8.987 

8 

33213 

7.893 

9 

38045 

6.890 

Method: 

Recursion  Level 

Arithmetic 

Size  Compression  Rat 

1 

30055 

13.416 

2 

30165 

13.367 

3 

30404 

13.262 

4 

30645 

13.157 

5 

30886 

13.055 

6 

31125 

12.954 

7 

31363 

12.856 

8 

31604 

12.758 

9 

31846 

12.661 

The  source  code  for  the  Huffman  O-Order,  Adaptive  HuH'man,  Arith¬ 
metic  coding,  and  LZW  was  presented  in  detail  by  Nelson  (1991). 
MOUSE.GS  and  GOLD.RGB  represent  standard  images  without  much 
lossless  compressibility,  while  LENA.DIO  is  a  sparse  file  of  DCT  coeffi¬ 
cients  consisting  mostly  of  zeroes.  In  general,  if  the  entropy  calculation  is 
a  large  number  (not  much  compressibility),  then  Huffman  O-Order  can  pro¬ 
duce  results  close  to  the  entropy  and  dynamic  Huffman  can  exceed  the  en¬ 
tropy.  For  a  sparse  file,  the  Huffman  O-Order  and  Adaptive  Huffman 
encoding  methods  are  not  very  effective  unless  done  at  least  twice  recur¬ 
sively,  while  the  LZW  method  gives  better  results  on  the  first  recursion. 

A  recursion  basically  attempts  to  compress  an  already  compressed  file 
using  the  same  method  repeatedly.  The  fact  that  none  of  these  methods  ad¬ 
equately  approaches  the  entropy  for  a  sparse  file  indicates  that  there  is 
room  for  improvement. 

If  it  were  possible  to  know  the  location  of  the  zero  entries  in  each  8x8 
block,  then  only  the  nonzero  elements  would  need  to  be  stored,  and  the  re¬ 
sulting  file  could  be  compressed  even  more  tightly  than  indicated  with  a 
Pi  ■  Pi  entropy  calculation.  The  use  of  overhead  bits  to  indicate  the 
position  of  the  nonzero  elements  in  an  8x8  block  of  DCT  coefficients  can 
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be  minimized  by  taking  advantage  of  the  fact  that  the  nonzero  entries  are 
clustered  around  the  direct  current  (DC)  component  in  the  upper  left-hand 
comer  of  the  8x8  matrix. 

The  least  significant  bit  (LSB)  of  each  nonzero  element  in  the  8x8  ma¬ 
trix  is  confiscated  to  use  as  an  indicator  bit.  This  indicator  bit  tells  if 
there  are  any  more  nonzero  elements  in  the  remainder  of  the  8x8  matrix. 

A  “one”  in  the  LSB  position  is  interpreted  to  mean  that  the  next  element 
contains  a  nonzero  value.  A  “zero”  in  the  LSB  position  means  that  the 
remaining  coefficients  are  zero.  Starting  at  the  upper  left-hand  comer 
(DC  coefficient),  a  zig-zag  pattern  is  used  to  transverse  the  matrix  until  a 
zero  is  found  in  the  LSB  (Figure  9).  The  resulting  file  can  be  Huffman 
encoded  to  provide  approximately  twice  as  much  compression  as  would 
be  obtained  from  simple  thresholding  followed  by  Huffman  encoding 
(Figure  10). 


Figure  9.  For  each  element  along  the  zig-zag 
path,  if  the  remainder  of  the  matrix  is 
zero,  then  the  LSB  of  that  element 
is  zero,  otherwise  it  is  set  to  one 


Fourier  Interpolation 

The  Cosine  Transform  provides  a  method  to  increase  the  resolution  of 
an  image  by  interpolating  between  known  pixels.  The  Fourier  interpola¬ 
tion  process  (Figure  11)  works  as  follows.  To  expand  an  image  by  4:1, 
take  the  Cosine  Transform  of  the  original  image  in  8x8  blocks,  and  recon- 
stmct  the  image  using  a  16x16  inverse  Cosine  Transform  algorithm.  The 
DCT  coefficients  in  the  original  8x8  transform  block  become  the  upper 
left  quadrant  in  the  16x16  DCT  block,  with  the  other  three  quadrants  pad¬ 
ded  with  zeroes.  The  effect  of  taking  the  16x16  inverse  transform  is  equi¬ 
valent  to  2-D  sinusoidal  interpolation  between  the  pixels  in  the  original 
image.  This  process  can  be  generalized  to  expand  an  image  to  any  arbi¬ 
trary  size. 
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Figure  10.  Compression  and  restoration  of  DBSJ.4  by  19.65:1  by  inserting  pointers 
along  the  zig-zag  path  with  the  original  image  in  Figure  3  (MSE  =  8.13) 


The  Relation  of  Spatial  Subsampling  to  Zonal 
Filtering 

The  next  logical  step  toward  achieving  high  compression  ratios  would 
be  to  subsample  an  image  at  a  rate  of  16:1  and  take  the  8x8  DCT  of  the  re¬ 
sulting  subsampled  image.  If  the  DCT  provided  a  compression  of  6:1, 
then  an  overall  compression  of  96: 1  is  achieved.  The  restored  image  can 
be  magnified  by  a  16:1  by  using  the  Fourier  interpolation  technique  pre¬ 
viously  discussed.  Figure  12  shows  one  possible  pattern  to  produce  a  16:1 
subsampled  image  prior  to  taking  the  DCT. 

The  scheme  shown  in  Figure  1 2  does  not  provide  an  optimal  way  of  tak¬ 
ing  the  subsample.  It  is  desired  to  create  a  16:1  subsampled  image  in  such 
a  way  that  the  interpolated  image  is  optimally  close  to  the  original  image. 
The  zonal  mask  applied  to  the  DCT  transform  creates  an  optimal  sub¬ 
sampled  image. 

The  process  works  as  follows.  Given  an  image,  divide  it  into  32x32 
blocks.  Take  the  DCT  of  each  32x32  block,  but  retain  only  the  first  16  ele¬ 
ments  (4x4)  in  the  upper  left-hand  comer.  The  other  1 ,008  elements  are 
forced  to  zero. 
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Figure  11 .  Fourier  interpolation  of  an  8x8  transformed  image  by  taking 
the  inverse  transform  in  16x16  blocks  with  three  quadrants 
padded  with  zeroes 


If  an  inverse  4x4  DCT  is  performed  on  the  remaining  elements,  then 
an  optimal  subsampled  image  is  produced.  In  this  case,  the  subsampling 
ratio  is  64:1.  Huffman  encoding  of  the  4x4  DCT  blocks  will  normally  re¬ 
sult  in  overall  compression  ratios  of  80:1  to  160:1. 

The  restoration  process  includes: 

a.  Huffman  decoding  to  recover  the  coefficients  of  each  4x4  transform 
block. 

b.  Creating  32x32  blocks  from  the  4x4  transform  coefficients  by 
padding  the  remaining  1,008  elements  with  zero. 
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O  X  X  X  O  XX  X 
X  X  X  X  X  XX  X 
X  X  XX  X  XX  X 
X  X  X  X  X  X  X  X 

O  X  X  X  O  XXX 
X  XXX  X  XXX 
X  XXX  X  XXX 
X  XXX  X  XXX 


Figure  12.  The  original  image  consists  of  those  pixels  shown  with  X's 
and  O's,  but  only  the  O’s  are  used  to  a  16:1  subsampled 
image 

c.  Talcing  the  inverse  32x32  discrete  cosine  transform. 

This  process  is  optimal  in  the  following  sense: 

a.  The  discrete  cosine  transform  is  a  near  optimal  transform  in  the 
mean-square  sense  and  produces  results  equivalent  to  the 
Karhunen-Loeve  transform  for  images  that  have  a  high  degree  of 
adjacent  pixel  correlation. 

b.  By  utilizing  the  transform  of  the  original  image  over  32x32  blocks, 
instead  of  8x8  blocks,  an  advantage  is  taken  of  any  correlation  of 
pixels  that  may  exist  between  adjacent  8x8  blocks.  The  JPEG 
algorithm  cannot  achieve  compression  rates  as  high  because  its 
block  size  is  initially  limited  to  8x8. 

c.  A  4x4  zonal  mask  applied  to  the  32x32  transform  creates  an  optimal 
subsample  so  that  the  interpolation  process  on  reconstruction  will  be 
as  close  as  possible  to  the  original  image. 

A  list  of  test  images  is  shown  below.  Figures  13  through  17  display  the 
original  image  beside  the  reconstructed  image  for  comparison.  In  these 
figures,  both  the  original  and  the  reconstructed  image  have  been  scaled 
down  to  allow  them  to  be  placed  side-by-side  on  a  single  page  for  compari¬ 
son.  In  Figure  18,  the  left  image  is  a  zoom-in  of  the  original  PETRA;  the 
right  image  is  a  zoom-in  of  the  reconstructed  image.  This  display  is  a  true 
pixel-by-pixel  comparison. 
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Image  Name 

Actual  Size 

Displayed  Size 

Petra 

1,636x2,152 

320x340 

Vale 

2,523x1 ,617 

504x323 

Twins 

2,529x1,578 

505x315 

Room 

2,110x2,695 

422x539 

Turbans 

2,523x1,617 

504x323 

Chapter  4  Achieving  High  Compression  Ratios 


Figure  13.  Petra  -  original  image  (left)  and  compressed  91.91:1  and  restored  (right) 


Figure  14.  Vale  -  original  image  (top)  and  compressed  120.97:1  and  restored  (bottom) 
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Figure  16.  Room  -  compressed  159:1  and  restored  image  (left)  and  original  (right) 
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Chapter  4  Achieving  High  Compression  Ratios 
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Appendix  A 

Compressions  with  the  Cosine 
Transform  and  Singuiar  Vaiue 
Decomposition  (SVD) 


The  following  set  of  images  demonstrates  increasing  distortion  because 
of  increasing  compression  rates  for  two  methods  -  the  Cosine  Transform 
and  SVD.  This  display  is  by  no  means  a  comparison  of  the  two  methods. 
The  Cosine  Transform  is  performed  in  8x8  blocks;  whereas,  SVD  is  per¬ 
formed  over  the  entire  image.  If  SVD  were  executed  in  8x8  blocks,  the 
method’s  ratio  of  compression  to  distortion  would  most  likely  improve. 


Figure  A1.  Original  image 
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Figure  A3.  DCT  encoding  with  a  threshold  of  1  followed  by  Huffman  encoding,  then 
Huffman  decoding  and  inverse  DCT  (MSE  =  5.859;  compression  with 
Huffman  encoding  of  DCT  coefficients  =  12.326:1) 
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Figure  A2.  DCT  encoding  followed  by  Huffman  encoding  then  Huffman  decoding  and 
inverse  DCT  (MSE  =  2.734;  compression  with  Huffman  encoding  of  DCT 
coefficients  =  7.186:1) 


Figure  A5.  DCT  encoding  with  a  threshold  of  3  followed  by  Huffman  encoding,  then 
Huffman  decoding  and  inverse  DCT  (MSE  =  14.544;  compression  with 
Huffman  encoding  of  DCT  coefficients  =  18.488:1) 


Figure  A4. 


DCT  encoding  with  a  threshold  of  2  followed  by  Huffman  encoding,  then 
Huffman  decoding  and  inverse  DCT  (MSE  =  9.818;  compression  with 
Huffman  encoding  of  DCT  coefficients  =  15.659:1) 
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Figure  A6.  DOT  encoding  with  a  threshold  of  4  followed  by  Huffman  encoding,  then 
Huffman  decoding  and  inverse  DOT  (MSE  =  20.047;  compression  with 
Huffman  encoding  of  DCT  coefficients  =  21.13:1) 


Figure  A7.  DCT  encoding  with  a  threshold  of  5  followed  by  Huffman  encoding,  then 
Huffman  decoding  and  inverse  DCT  (MSE  =  25.39;  compression  with 
Huffman  encoding  of  DCT  coefficients  =  23.34:1) 
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Figure  A8.  A  2:1  compression  with  SVD  (MSE  =  0.765) 


Figure  A9.  A  4:1  compression  with  SVD  (MSE  =  3.802) 
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Appendix  B 

“Image  Lab”  Software  User’s 
Guide 


File 

Copy  File,  Delete  File,  and  Rename  File  perform  similarly  to  their 
Disk  Operating  System  (DOS)  equivalents.  Copy  File  copies  file  informa¬ 
tion  from  one  file  to  another.  Delete  File  deletes  a  file.  Rename  File 
moves  file  information  from  one  file  to  another. 

Load  File  requests  a  image  file  name  in  either  the  RGB  format  or  the 
greyscale  format.  Image  width  and  height  are  requested.  This  selection  is 
a  prerequisite  to  displaying  an  image.  Once  an  image  file  is  loaded,  it 
does  not  need  to  be  reloaded;  the  most  recent  image  file  and  its  dimen¬ 
sions  are  stored  in  global  memory.  For  example,  if  a  different  display 
mode  is  desired,  change  the  mode  in  “Options,”  and  then  select  Display 
Full  Image  under  “View”;  the  image  will  then  be  redisplayed  without  re¬ 
quiring  the  user  to  reload  the  image  information. 

Load  Palette  requests  an  RGB  or  greyscale  palette  name.  An  RGB  pal¬ 
ette  must  list  the  256  intensities  for  (a)  red,  (b)  green,  and  (c)  blue  for  a 
total  of  768  entries.  A  RGB  pixel  is  translated  by  the  following  mask:  R 
R  R  G  G  G  B  B.  Bits  5-7  indicate  the  intensity  of  red,  bit  7  being  the 
MSB.  Bits  2-4  indicate  the  intensity  of  green,  bit  4  being  the  MSB.  Bits 
0-1  indicate  the  intensity  of  blue,  bit  1  being  the  MSB.  A  greyscale  pal¬ 
ette  must  list  the  256  grey  intensities  and  repeat  the  list  twice  for  a  total  of 
768  entries.  (Note:  To  obtain  any  shade  of  grey,  the  intensities  of  red, 
green,  and  blue  must  be  equal.)  All  palettes  must  be  768  bytes  in  size. 

No  stray  bits  are  allowed!  Once  a  palette  is  loaded,  it  remains  in  global 
memory;  therefore,  the  palette  does  not  require  reloading  from  one  image 
to  the  next.  The  default  palette  is  GRAYTEST.PAL. 

Quit  ends  the  use  of  “Image  Lab.” 
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View 
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Show  Red  shows  only  the  red  intensities.  Show  Green  shows  only  the 
green  intensities.  Show  Blue  shows  only  the  blue  intensities.  Show  Bit 
Plane  1-7  masks  out  all  bits  except  the  requested  one.  If  the  bit  is  present 
in  a  pixel,  white  will  be  displayed,  else  black  will  be  displayed.  Display 
Full  Image  redisplays  the  original  image. 


Analysis 

Calculate  Entropy  calculates  the  entropy  and  predicts  the  theoretical 
compression  ratio  for  an  image  or  processed  Hie.  The  theoretical  compres¬ 
sion  ratio  is  based  on  Huffman-0.  Chop  Image  File  allows  a  subimage  to 
be  created  from  an  image  Hie.  The  original  flle  name  and  dimensions  are 
requested  along  with  the  output  file  name,  starting  and  ending  horizontal 
coordinates,  and  the  starting  and  ending  vertical  coordinates.  The  top  left 
pixel  in  the  original  file  is  located  at  X  =  1,  Y  =  1.  The  starting  and  end¬ 
ing  bounds  are  inclusive.  Compare  Files  compares  the  pixels  of  two  iden¬ 
tically  sized  files.  The  threshold  is  the  lowest  difference  that  is  to  be 
flagged.  The  output  will  display  four  aspects  of  the  differing  pixels. 

Pixel  1  is  the  value  of  the  pixel  in  the  first  file.  Pixel  2  is  the  value  of  the 
pixel  in  the  second  file.  X  is  the  horizontal  coordinate.  Y  is  the  vertical 
coordinate.  The  top  left  pixel  is  located  at  X  »  0,  Y  =  0.  This  selection  is 
helpful  in  analyzing  images  processed  by  lossy  techniques.  The  original 
and  reconstructed  images  can  be  compared  on  a  pixel-by-pixel  basis. 
Compression  Ratio  tells  the  original  file  size,  the  compressed  file  size, 
and  the  ratio.  Difference  Images  creates  a  difference  image  between  orig¬ 
inal  and  reconstructed  images.  Zero  error  is  represented  by  gray  or  inten¬ 
sity  128.  Increasing  positive  error  is  represented  by  increasing  intensity, 
and  increasing  negative  error  is  represented  by  decreasing  intensity.  His¬ 
togram  makes  a  text  histogram  of  the  pixels  in  an  file.  Mean  Squared 
Error  finds  the  MSE  between  two  image  files.  The  two  files  do  not  have 
to  be  the  same  size.  For  color  processed  images,  this  selection  gives  dis¬ 
torted  results  since  the  color  procedures  work  with  RED  bits,  GREEN 
bits,  and  BLUE  bits  instead  of  full  8-bit  pixels.  Paste  Image  Files:  Hori¬ 
zontally  pastes  two  images  side  by  side;  Paste  Image  Files:  Vertically 
pastes  one  image  above  the  other.  The  two  images  do  not  have  to  be  the 
same  height  or  width.  This  selection  is  helpful  in  visually  comparing  orig¬ 
inal  and  reconstructed  images. 


Lossless 


Four  options  are  available  for  compression  and  decompression:  (a) 
Huffman-0,  (b)  Adaptive  Huffman,  (c)  LZW,  and  (d)  Arithmetic.  If  a 
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file  is  compressed  in  one  option,  it  must  be  decompressed  in  the  same 
option. 


Lossy 

Three  transforms  and  inverse  transforms  are  available  for  compression 
and  decompression:  (a)  Cosine,  (b)  Hadamard,  and  (c)  Sine.  If  a  file  is 
compressed  in  one  option,  it  must  be  decompressed  in  the  same  option. 
Black  &  White  processes  the  image  as  a  greyscale  image.  For  compres¬ 
sion,  the  recon structible  DCT  will  be  located  in  *.l*;  the  displayable  DCT 
will  be  located  in  the  output  file  specified.  For  decompression,  an  *^.l* 
file  must  exist  to  reconstruct,  or  an  *.d*  file  must  exist  assuming  that  the 
image  can  be  cut  evenly  into  blocks  specified  by  the  lossy  block  mode 
being  used.  Color  processes  the  image  as  an  RGB  image  by  translating  to 
the  Y,  Cl,,  format  as  shown  in  Equations  B1-B3. 


Y=  0.299  *R  + 0.587  *G  + 0.114  *B  (Bl) 

=  -0.16874  *  R  -  0.33126  *  G 0.5  *  B  (B2) 

C,.  =  0.5*R-  0.41869  *  G  -  0.08131  *  B  (B3) 

RGB  format  is  regained  with  Equations  B4-B6. 

/?  =  K  +  1.402  *  C,  (B4) 

G  =  Y-  0.34414  *  Cf^  -  0.71414  *  (B5) 

B  =  Y  +  1.772  *Ci^  (B6) 


For  compression,  the  displayable  DCT’s  will  be  located  in  *.yyy,  *.ccb, 
and  *.ccr\  the  reconstructible  DCT’s  will  be  located  in  *.lyy,  *.lcb,  and 
*.lcr.  For  decompression,  *.lyy,  *.lcb,  and  *.lcr  files  must  exist  to  re¬ 
construct.  File  names  are  not  a  problem  as  long  as  all  processing  is  done 
by  this  software! 

In  compression,  the  DCT  is  manipulated  by  two  factors:  thresholding 
and  zonal  filtering.  If  the  absolute  value  of  a  DCT  entry  is  less  than  or 
equal  to  the  threshold,  that  entry  is  set  to  zero.  Zonal  filtering  is  more 
complicated.  The  zonal  filter  level  tells  what  coefficients  to  keep  in  each 
DCT  square.  For  example,  if  the  lossy  mode  is  set  to  8x8  and  the  zonal  fil¬ 
ter  level  equals  4,  each  8x8  block  of  the  DCT  will  retain  the  16  entries  in 
the  top  left  comer  that  make  a  4x4  square.  All  coefficients  outside  the 
4x4  are  set  to  zero.  To  disable  zonal  filtering,  select  level  8  for  8x8  mode, 
16  for  16x16  mode,  and  32  for  32x32  mode. 
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Options 


Set  Video  Mode  displays  the  possible  video  modes  and  allows  one  to 
be  selected.  The  default  mode  is  set  to  the  highest  resolution  that  the  soft¬ 
ware  can  find.  If  the  PC’s  graphics  card  is  not  a  Super  VGA  card,  most 
likely,  the  only  mode  that  will  work  is  320x200.  If  images  will  not  dis¬ 
play,  set  the  video  mode  to  320x200. 

Set  Lossy  Mode  allows  three  different  lossy  modes  to  be  selected: 

8x8,  16x16,  and  32x32.  Each  mode  represents  the  block  size  that  the 
image  will  be  cut  into  to  be  processed.  The  image  file  does  not  have  to  be 
cut  evenly  into  squares  of  the  selected  block  size.  For  example,  a  17x17 
image  can  be  processed  in  any  of  the  lossy  modes.  The  8x8  and  16x16 
modes  can  process  image  files  with  a  maximum  width  of  1,024  pixels. 

The  32x32  mode  is  restricted  to  a  maximum  width  of  640  pixels.  The 
height  is  boundless.  The  8x8  processes  Hies  in  one  pass.  If  the  image 
width  is  less  than  or  equal  to  512  pixels,  the  16x16  processes  Hies  in  one 
pass,  else  it  processes  files  in  two  passes.  The  32x32  requires  a  pass  for 
each  160-pixel-wide  strip.  The  last  strip  is  not  necessarily  160  pixels 
wide.  For  example,  an  image  that  is  350  pixels  wide  would  require  two 
1 60-pixel-wide  strips  and  a  third  30-pixei-wide  strip.  All  strips  are  pasted 
together  at  the  end  of  the  procedure.  As  the  files  are  processed,  dots  are 
displayed.  Each  continuous  row  of  dots  represents  a  strip.  Lossy  color 
procedures  process  Y  strips  first,  Q  strips  next,  and  strips  last.  The  de¬ 
fault  lossy  mode  is  8x8. 

Set  Menu  Color  provides  four  menu  color  options:  (a)  Red,  (b)  Green, 
(c)  Blue,  and  (d)  Black  and  White. 

Make  Palette  allows  the  user  to  create  an  RGB  palette.  The  red, 
green,  and  blue  intensities  should  be  entered  in  ascending  order.  Once  en¬ 
tered,  the  intensities  are  scrambled  into  an  RGB  palette. 
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“Image  View”  Software  User’s 
Guide 


File 


Load  Series  File  uses  information  from  a  file  to  display  a  sequential 
set  of  images.  The  file  format  is  as  follows: 

nuAber^of^lnages  nodel  palette^naael  image^nanel  xl  yl  mode2  . . . 


The  modes  are  abbreviated  as  follows:  1=320x200,  2=640x480, 
3=800x600, 4=1024x768.  This  file  must  be  an  ASCII  file;  if  WP  is  used 
to  generate  this  file,  use  CNTL  F5  to  save  the  file  as  ASCII  text.  Any 
combination  of  RGB  and/or  grayscale  images  may  be  displayed.  Once  a 
series  is  loaded,  it  is  stored  in  global  memory;  therefore,  the  series  does 
not  need  to  be  reloaded  to  perform  “View”  selections. 

Quit  ends  the  use  of  “Image  View.” 


View 

Show  Red  shows  only  the  red  intensities.  Show  Green  shows  only  the 
green  intensities.  Show  Blue  shows  only  the  blue  intensities.  Show  Bit 
Plane  1-7  masks  out  all  bits  except  the  requested  one.  If  the  bit  is  present 
in  a  pixel,  white  will  be  displayed,  else  black  will  be  displayed.  Display 
Full  Image  redisplays  the  original  series. 


Options 

Set  Menu  Color  provides  four  menu  color  options:  (a)  Red,  (b)  Green, 
(c)  Blue,  and  (d)  Black  and  White. 
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Source  Code  for  Individual 
Programs 


ENTROPY . BAS 


10  DIM  J(257) ,  K1 (257) 

20  CLASS 
30  SUM  =  0 
40  ICOUNT  =  0 

50  INPUT  "Type  name  for  input  file  or  <RET>  F$ 

60  PRINT 

70  OPEN  F$  FOR  BINARY  AS  #1 
80  A$  =  INPUT$(1,  1) 

90  IF  EOF(l)  THEN  GOTO  130 

100  ICOUNT  =  ICOUNT  +  1 

110  J(ASC(A$))  =  J(ASC(A$))  +  1 

120  GOTO  80 

130  FOR  I  =  0  TO  255 

140  IF  J(I)  =  0  THEN  GOTO  160 

150  SUM  =  SUM  -  (J(I)  /  ICOUNT)  /  LOG(2)  *  LOG(J(I)  /  ICOUNT) 

160  NEXT  I 

170  PRINT  "The  entropy  =  SUM;  "  bits  per  symbol." 

180  PRINT  "A  lossless  compression  of  8  /  SOM;  "  to  1  is  possible 
with  entropy  coding." 

190  CLOSE  #1 
200  PRINT 

210  PRINT  "Type  any  )tey  to  end  " 

220  A$  =  INKEYS 

230  IF  AS  =  ""  THEN  GOTO  220 

240  END 


MSE.BAS 


10  REM  Program  Mean-Square-Error 

20  REM  this  program  computes  the  mean  square  error  between  two 
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25  REM  files 
30  n  -  1 
40  CLASS 

50  INPUT  "Type  filename  #1  F$ 

60  INPUT  "Type  filename  #2  G$ 

70  OPEN  FS  FOR  BINARY  AS  #1 
80  OPEN  G$  FOR  BINARY  AS  #2 
90  A$  =  INPUTS  (1,  1) 

100  B$  =  INPUTS (1,  2) 

110  IF  EOF(l)  THEN  GOTO  1000 

120  SUM  =  SUM  +  (ASC(AS)  -  ASC(BS))  "  2 

130  n  =  n  +  1 

140  GOTO  90 

1000  SUM  =  SUM  /  n 

1010  PRINT  "The  mean  square  error  =  SUM 
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ENTROPY. C 


tinclude  <math.h> 

♦include  <stdio.h> 

/•Huffman  Estimator*/ 

/*  Mike  Ellis  */ 
main  ( ) 

{ 

char  string [ 80 ]; 
unsigned  char  p; 
int  i,k; 

float  j (256] .pixel ; 
float  entropy; 

FILE  *input_file; 

FILE  *infile; 

entropy  =  0;  /*Set  all  Variable  to  0  */ 

for  {  i  =  0;  i<=255;  i++) 

{ 

j(il=0; 


pixel  =  0; 

printf  ("\nType  name  of  file  "); 
scanf  (“%s", string  ); 
input_file=fopen (string,  "r+b”) ; 
while  ( ! feof (input_file) ) 

( 


/♦Open  the  input  file*/ 

/*For  Read  +  Binary  */ 
/•Read  to  end-of-f ile*/ 


fscanf  (input_file,  "%c'',  sp) ; 

pixel  =  pixel  +  1; 

k=p; 

j[k)=j(kl+l; 

1 

for  (i  =  0;  i  <=255;  i++) 


/•input  as  unsigned  char*/ 
/♦count  characters  read*/ 
/•convert  char  to  integer*/ 
/•number  of  times  that  */ 
/•this  char  was  read  */ 
/♦compute  entropy*/ 


if  (j(il  !=0) 

( 

entropy  =  entropy  +  j [i] *log(j [ij /pixel) ; 
) 


entropy  =  -entropy/ (pixel*log<2) ) ; 

printf  ("\nEntropy  =  %f", entropy) ;  /♦print  the  entropy*/ 
printf ("\nEntropy  encoding  can  achieve"); 
printf("  a  %f  to  1  compression. \n", 8/entropy ) ; 
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IMAGE. BAS 


10  REM 

20  REM  PROGRAM  "IMAGE"  FOR  DISPLAY  GRAYSCALE  OR  COLOR  IMAGES 
30  REM  USE  UNDER  QUICKBASIC  VERSION  4.5 
40  REM 
50  CLASS 

60  INPUT  "Type  Image  Filename  C$ 

70  DEFINT  A-Z 

80  INPUT  "Type  X  Dimension  XDIM 
90  INPUT  "Type  Y  Dimension  YDIM 

100  GOSUB  210  'set  up  256  color  palette 

110  OPEN  C$  FOR  BINARY  AS  #1 

120  WINDOW  SCREEN  (0,  0)-(XDIM,  YDIM) 

130  FOR  I  =  1  TO  YDIM 
140  A$  =  INPUTS (XDIM,  1) 

150  FOR  J  =  1  TO  XDIM 
160  B  =  ASC(MIDS(A$,  J,  1)) 

170  PSET  (J,  I),  'display  the  pixel 

180  NEXT 
190  NEXT 
200  GOTO  200 

210  INPUT  "Type  Palette  Filename  P$ 

220  SCREEN  33 

230  OPEN  P$  FOR  BINARY  AS  #1 

240  DIM  RED (256),  GREEN (256),  BLUE (256) 

250  FOR  K  =  0  TO  255 
260  AS  =  INPUTS  (1,  1) 

270  RED(K)  -  ASC(AS) 

280  NEXT  K 

290  FOR  K  =  0  TO  255 

300  AS  =  INPUTS (1,  1) 

310  GREEN (K)  =  ASC(AS) 

320  NEXT  K 

330  FOR  K  =  0  TO  255 
340  AS  =  INPUTS (1,  1) 

350  BLUE(K)  =  ASC(A$) 

360  NEXT  K 

370  FOR  I  =  0  TO  255 

330  PALETTE  I,  (INT(BLUE(I)  /  4))  ♦  65536!  +  256  *  ( INT (GREEN ( I ) / 

4)  )  +  INT(RED(I)  )  /  4 

390  NEXT  I 

400  CLOSE  #1 

410  RETURN 
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DCT.BAS 


10  COMMON  DATA1%()  'More  than  64K  block 

20  CLEAR 

30  DIM  C(8,  8),  DATA1%(90,  1,  8,  8),  TEMP(8,  8) 

40  DIM  TEMP2(8,  8) 

50  MAX(I,  1)  =  -100000! 

60  MIN(1,  1)  =  100000! 

70  REM 

80  REM  Collect  Input  Data  8X8  Byte  Blocks 
90  REM 

100  INPUT  "Type  Name  of  Input  File  F$ 

110  IF  F$  =  ""  THEN  FILES:  GOTO  100 
120  K  =  INSTRd,  F$, 

130  IF  K  <>  0  THEN  A$  =  LEFTS (F$,  K  -  1)  ELSE  AS  =  FS 
140  INPUT  "Type  X  Range  XINDEX 

150  INPUT  "Type  Y  Range  YINDEX 

160  XINDEX  =  (XINDEX  /  8) 

170  YINDEX  =  (YINDEX  /  8) 

180  K1  =  XINDEX  *  YINDEX 
190  GS  =  AS  +  ".dct” 

200  OPEN  FS  FOR  BINARY  AS  #1 
210  OPEN  GS  FOR  OUTPUT  AS  #2 

260  GOSUB  870  'Define  cosine  transform  matrix 

290  REM 

300  FOR  J  =  1  TO  YINDEX 
310  PRINT  J  »  8 
320  FOR  Y  =  1  TO  8 
330  II  =  0 

340  AIS  =  INPUTS (8  *  XINDEX,  1) 

350  FOR  I  =  1  TO  XINDEX 

360  FOR  X  =  1  TO  8 

370  II  =  II  +  1 

380  AS  =  MIDS(A1S,  II,  1) 

390  DATA1%(I,  1,  Y,  X)  =  ASC(AS)  -  128 
400  NEXT  X 
410  NEXT  I 
420  NEXT  Y 

430  GOSUB  590  'Perform  the  cosine  transform 

440  FOR  X  =  1  TO  8 

450  FOR  I  =  1  TO  XINDEX 

460  FOR  Y  =  1  TO  8 

470  K  =  (DATA1%(I,  1,  X,  Y)  ) 

480  SS  =  SS  +  CHRS(K  +  128) 

490  NEXT 
500  NEXT 

510  PRINT  #2,  SS; 

520  SS  =  "" 

530  NEXT 
540  REM 
550  NEXT 
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560  CLOSE  #1 
570  CLOSE  #2 
580  END 
590  REM 
600  REM 

610  FOR  I  =  1  TO  XINDEX 
620  REM  FOR  k  =  1  TO  8 
630  FOR  L  =  1  TO  8 
640  TEMPI  =  0 
650  FOR  M  =  1  TO  8 
660  FOR  N  =  1  TO  8 

670  TEMPI  =  TEMPI  +  DATA1%  (I,  1,  M,  N)  *  C  (L,  N) 

680  NEXT 

690  TEMP(M,  L)  =  TEMPI 

700  TEMPI  =  0 

710  NEXT 

720  NEXT 

730  REM  NEXT 

740  FOR  L  =  1  TO  8 

750  TEMPI  =  0 

760  FOR  M  =  1  TO  8 

770  FOR  N  =  1  TO  8 

780  TEMPI  =  TEMPI  +  C(M,  N)  *  TEMP(N.  L) 

790  NEXT  N 

800  DATA1%(I,  1,  M,  L)  =  TEMPI  /  8 

810  TEMPI  =  0 

820  NEXT 

830  NEXT 

840  REM 

850  NEXT  I 

860  RETURN 

870  REM 

880  REM  Generate  Cosine  Transform  Matrix 
890  FOR  K  =  0  TO  7 
900  FOR  N  =  0  TO  7 

910  IF  K  =  0  THEN  C(K  +  1,  N  +  1)  =  1  /  SQR(8) 

920  IF  K  <>  0  THEN  C(K  +  1,  N  +  1)  =  SQR(.25)  *  COS(3. 14159  *  (2*N+1)  *K/  16) 

930  NEXT  N 
940  NEXT  K 
950  RETURN 
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INVDCT . BAS 


10  COMMON  DATAIO  'More  than  64K  block 

20  CLEAR 

30  DIM  C(8,  8),  DATAIOO,  1,  8,  8),  TEMP(8,  8) 

40  MAXd,  1)  =  -100000! 

50  MIN(1,  1)  =  100000! 

60  REM 

70  REM  Collect  Input  Data  8X8  Byte  Blocks 
80  REM 

90  INPUT  "Type  Name  of  Input  File  F$ 

100  IF  F$  =  ""  THEN  FILES:  GOTO  90 
110  K  =  INSTRd,  FS, 

120  IF  K  <>  0  THEN  A$  =  LEFTS (F$,  K  -  1)  ELSE  A$  =  F$ 

130  INPUT  "Type  X  Range  XINDEX 

140  INPUT  "Type  Y  Range  YINDEX 

150  XINDEX  =  (XINDEX  /  8) 

160  YINDEX  =  (YINDEX  /  8) 

170  K1  =  XINDEX  *  YINDEX 
180  H$  =  AS  +  ".rec" 

190  OPEN  FS  FOR  BINARY  AS  #1 
200  OPEN  HS  FOR  OUTPUT  AS  #2 

250  GOSUB  820  'Set  up  C  matrix 

280  REM 

290  FOR  J  =  1  TO  YINDEX 
300  PRINT  J  *  8 
310  FOR  Y  =  1  TO  8 
320  FOR  I  =  1  TO  XINDEX 
330  FOR  X  =  1  TO  8 
340  AS  =  INPUTS  (1,  1) 

350  DATAKI,  1,  Y,  X)  =  ASC(AS)  -  128 
360  NEXT  X 
370  NEXT  I 
380  NEXT  Y 

390  GOSUB  550  'Perform  Inverse  Cosine 

400  REM  'Transform 

410  FOR  X  =  1  TO  8 

420  FOR  I  =  1  TO  XINDEX 

430  FOR  Y  =  1  TO  8 

440  K  =  CINT(DATA1 (I,  1,  X,  Y) ) 

450  IF  K  >  127  THEN  K  =  127 
460  IF  K  <  -128  THEN  K  =  -128 
470  PRINT  #2,  CHRS(K  +  128); 

480  NEXT 
490  NEXT 
500  NEXT 
510  REM 
520  NEXT 

530  CLOSE  #1:  CLOSE  #2 
540  END 
550  REM 
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560  REM 
570  REM 

580  FOR  I  =  1  TO  XINDEX 
590  FOR  L  =  1  TO  8 
600  TEMPI  =  0 
610  FOR  M  »  1  TO  8 
620  FOR  N  =  1  TO  8 

630  TEMPI  •=  TEMPI  +  DATAKI,  1,  M,  N)  *  C(N,  L) 

640  NEXT 

650  TEMP(M,  L)  =  TEMPI 
660  TEMPI  =  0 
670  NEXT 
680  NEXT 

690  FOR  L  =  1  TO  8 
700  TEMPI  =  0 
710  FOR  M  =  1  TO  8 
720  FOR  N  =  1  TO  8 

730  TEMPI  =  TEMPI  +  C(N,  M)  •  TEMP (N,  L) 

740  NEXT  N 

750  DATAKI,  1,  M,  L)  =  TEMPI  *  8 

760  TEMPI  =  0 

770  NEXT 

780  NEXT 

790  REM 

800  NEXT 

810  RETURN 

820  REM 

830  REM  Generate  Cosine  Transform  Matrix 
840  FOR  K  =  0  TO  7 
850  FOR  N  =  0  TO  7 

860  IF  K  =  0  THEN  C(K  +  1,  N  +  1)  =  1  /  SQR(8> 

870  IF  K  <>  0  THEN  C(K  +  1,  N  +  1)  =  SQR(.25)  *  COS(3. 14159  *  (2 

*  N  +  1)  ♦  K  /  16) 

880  NEXT  N 
890  NEXT  K 
900  RETURN 
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IFS.BAS 


10  KEY  OFF 

20  INPUT  "Type  Data  File  for  IFS  codes  IFS$ 

30  OPEN  IFS$  FOR  INPUT  AS  #1 
40  I  =  1 

50  INPUT  #1,  A(I),  B(I),  C(I),  D(I),  E(I),  F(I),  P(I) 

60  P(I)  =  P(I)  +  P(I  -  1) 

70  IF  EOF(l)  THEN  GOTO  100 

80  I  =  I  +  1 

90  GOTO  50 

100  SCREEN  9:  CLASS 

110  CLOSE  #1 

120  MINX  =  10000:  MAXX  =  -10000:  MINT  =  10000:  MAXY  =  -10000 
130  COLOR  10 

140  REM  WINDOW  (-3,  -3)-(5,  15) 

150  X  =  0:  y  =  0:  NUMITS  =  1000! 

160  FOR  N  -  1  TO  NUMITS 
170  K1  =  INT(RND  ♦  100) 

180  FOR  J  =  1  TO  I 

190  IF  (K1  >=  P(J  -  1)  *  100)  AND  (K1  <  P ( J)  *  100)  THEN  K  =  J 
200  NEXT  J 

210  NEWX  =  A(K)  *  X  +  B(K)  *  Y  +  E  (K) 

220  NEWY  =  C(K)  *  X  +  D(K)  »  Y  +  F(K) 

230  X  =  NEWX 
240  Y  =  NEWY 
250  OLDK  »  K 

260  IF  <N  >  10)  AND  (NUMITS  <  10000)  THEN  GOSUB  330 

270  IF  (N  >  10)  AND  (NUMITS  >  10000)  THEN  PSET  (X,  Y) 

280  NEXT 

290  IF  NUMITS  >  10000  THEN  GOTO  380 
300  X  =  0:  Y  =  0:  NUMITS  =  10000000# 

310  WINDOW  (MINX  -  .5  *  ABS(MINX),  MINY  -  .5  •  ABS (MINY) ) - (MAXX  + 
.5  •  ABS (MAXX),  MAXY  +  .5  *  ABS (MAXY) ) :  CLASS  :  GOTO  160 
320  END 

330  IF  X  >  MAXX  THEN  MAXX  =  X 

340  IF  X  <  MINX  THEN  MINX  =  X 

350  IF  Y  >  MAXY  THEN  MAXY  =  Y 

360  IF  Y  <  MINY  THEN  MINY  =  Y 

370  RETURN 

380  A$  ”  INKEYS 

390  IF  AS  =  ""  THEN  GOTO  380 

400  END 


IFS 

Codes 

for 

a  : 

Square 

A 

B 

C 

D 

E 

F 

P 

5 

,  0  , 

0  ,  , 

.5  , 

1 

,  1  , 

.25 

5 

,  0  , 

0  ,  , 

.5  , 

50 

,  1  , 

.25 

5 

,  0  , 

0  ,  , 

.5  , 

1 

,  50  , 

.25 

5 

,  0  . 

0  ,  , 

.5  , 

50 

,  50  , 

.25 
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Appendix  E 

Source  Code  for  “Image  Lab”  Software 


LAB . BAT 


cl  /c  /DM5  /AL  /I\cscape\include  labs.c 
cl  /c  /DM5  /AL  /I\cscape\include  labx.c 
cl  /c  /DM5  /AL  /I\cscape\include  laby.c 
cl  /c  /DM5  /AL  /I\cscape\include  labz.c 
link  /stack; 44000  /SE:300  labs+labx+laby 
+labz, , , \global\global+\standard\standard 
+\cscape\lib\mllcscap+\cscape\lib\mllowl; 
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LABS . C 


♦include  <stdio.h> 

♦include  <string.h> 

♦include  <math.h> 

♦include  <stdlib.h> 

♦include  <dos.h> 

♦include  <stdarg.h> 

♦include  <ctype.h> 

♦include  <fcntl.h> 

♦include  <sys\types.h> 

♦include  <sys\stat.h> 

♦include  <io.h> 

♦include  "errhand.h" 

♦include  "bitio.h" 

♦include  "\global\globdef .h" 

♦include  "\cscape\include\cscape.h" 

♦include  "\cscape\include\franier .h" 

extern  void  doinvl6(int  ixindex,  int  datal6 [32] [16] (16) ,  float  cl6 [16] [16] ) ; 

extern  void  doforml6(int  ixindex,  int  datal6[32] [16] [16] ,  float  templ6 [16] [16] , 

float  cl6[16]  [16] ) ; 

extern  void  lossyl6(int  flagl,  int  datall); 

extern  void  doinv32(int  ixindex,  int  data32 [5] [32] [32] ,  float  c32 [32] [32] ) ; 

extern  void  doform32(int  ixindex,  int  data32C5J [32) (32! ,  float  c32 [32] [32) ) ; 

extern  void  lossy32(int  flagl,  int  datall); 

extern  void  analyze (int  flag2); 

int  vga_code,  graphics, width, height, mode, modes [5] , choice, 

read_ban)^,write_bank,  top,  stat_buf  [4] ,  radius,  ix,  iy,  flagl6=0, 
colorflag=2; 

char  instringl [80] ,message_string[81] , string[80] ; 

unsigned  stringpall [768] ; 

sed_type  frame; 

/»»*»*♦**»»*«*  ♦»**♦******»»♦»»*♦**♦»»*<►»»»*♦»»**»»»*♦*»♦****»»  »*•»»♦»♦»»♦*/ 
/»»»,**.****..**...**. ..start  adaptive  HUFFMAN************‘*****»* ******♦♦/ 
char  ‘CompressionNamel  =  "Adaptive  Huffman  coding,  with  escape  codes"; 
char  ‘Usagel  =  "infile  outfile  [  -d  ]"; 

♦define  END_OF_STREAM  256 

♦define  ESCAPE  257 

♦define  SYMBOL_COUNT  258 

♦define  NODE_TABLE_COUNT  (  (  SYMBOL_COUNT  *  2  )  -  1  ) 

♦define  ROOT_NODE  0 

♦define  MAX_WEIGHT  0x8000 

♦define  TRUE  1 

♦define  FALSE  0 
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typedef  struct  tree  { 

int  leaf[  SYMBOL_COUNT  ] ; 
int  next_free_node; 
struct  node  ( 

unsigned  int  weight; 
int  parent; 
int  child_is_leaf ; 
int  child; 

)  nodes [  NODE_TABLE_COUNT  ]; 

)  TREE; 

TREE  Tree; 

#ifdef  _STDC_ 

void  CompressFilel (  FILE  ‘input,  BIT_FILE  ‘output  ); 
void  ExpandFilel (  BIT_FILE  ‘input,  FILE  ‘output); 
void  InitializeTree (  TREE  ‘tree  ); 

void  EncodeSymbol (  TREE  ‘tree,  unsigned  int  c,  BIT_FILE  ‘output  ) 

int  DecodeSymbol (  TREE  ‘tree,  BIT_FILE  ‘input  ) ; 

void  UpdateModel (  TREE  ‘tree,  int  c  ) ; 

void  RebuildTree(  TREE  ‘tree  ); 

void  swap_nodes(  TREE  ‘tree,  int  i,  int  j  ); 

void  add_new_node {  TREE  ‘tree,  int  c  ); 

void  PrintTree(  TREE  ‘tree  ); 

void  print_codes (  TREE  ‘tree  ) ; 

void  print_code(  TREE  ‘tree,  int  c  ); 

void  calculate_rows (  TREE  ‘tree,  int  node,  int  level  ) ; 
int  calculate_columns (  TREE  ‘tree,  int  node,  int  starting_guess  ) 
int  find_minimum_column (  TREE  ‘tree,  int  node,  int  max_row  ) ; 
void  rescale_columns (  int  factor  ) ; 

void  print_tree(  TREE  ‘tree,  int  first_row,  int  last_row  ); 

void  print_connecting_lines (  TREE  ‘tree,  int  row  ); 

void  print_node_nuinbers  (  int  row  )  ; 

void  print_weights (  TREE  ‘tree,  int  row  ); 

void  print_symbol (  TREE  ‘tree,  int  row  ); 

#else 

void  CompressFilel () ; 

void  ExpandFilel 0 ; 

void  InitializeTree <) ; 

void  EncodeSymbol ( ) ; 

int  DecodeSymbol () ; 

void  UpdateModel ( ) ; 

void  RebuildTreeO  ; 

void  swap_nodes ( ) ; 

void  add_new_node ( ) ; 

void  PrintTreeO; 

void  print_codes () ; 

void  print_code ( ) ; 

void  calculate_rows 0 ; 

int  calculate_columns ( ) ; 

void  rescale_columns ( ) ; 

void  print_tree ( ) ; 

void  print_connecting_lines  ( ) ; 
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void  print_node_nuinbers  ( ) ; 
void  print_weights 0 ; 
void  print_symbol ( ) ; 

#endif 

void  CompressFilel (  input,  output  ) 

FILE  *input; 

BIT_FILE  ‘output; 

{ 

int  c; 

InitializeTree  (  STree  ) ; 

while  (  (  c  =  getc (  input  )  )  !=  EOF  )  { 

EncodeSymbol (  STree,  c,  output  ); 

OpdateModeK  STree,  c  ) ; 

1 

EncodeSymbol (  STree,  EMD_OF_STREAM,  output  ) ; 

) 

void  ExpandFilel (  input,  output  ) 

BIT_FILE  ‘input; 

FILE  ‘output; 

( 

int  c; 

InitializeTree  (  STree  ) ; 

while  (  (  c  =  DecodeSytnbol  <  STree,  input  )  )  !=  END_OF_STREAM  )  ( 
if  (  putc (  c,  output  )  ==  EOF  ) 

fatal_error (  "Error  writing  character"  ) ; 

OpdateModeK  STree,  c  ); 

) 

void  InitializeTree {  tree  ) 

TREE  ‘tree; 

( 

int  i; 

tree->nodes[  ROOT_NODE  ] .child 
tree->nodes[  ROOT_NODE  ) .child_is_leaf 
tree->nodes(  ROOT_NODE  ] .weight 
tree->nodes[  ROOT_NODE  1 .parent 
tree->nodes(  ROOT_NODE  +  1  ] .child 

tree->nodes(  ROOT_NODE  +  1  ) .child_is_leaf 

tree->nodes(  ROOT_NODE  +  1  ] .weight 

tree->nodes(  ROOT_NODE  +  1  1 .parent 

tree->leaf(  END_OF_STREAM  1 
tree->nodes(  ROOT_NODE  +  2  1 .child 

tree->nodes(  ROOT_NODE  +  2  ) .child_is_leaf 

tree->nodes(  ROOT_NODE  +  2  ) .weight 

tree->nodes[  ROOT_NODE  +  2  ] .parent 


=  ROOT_NODE  +  1; 
=  FALSE; 

=  2; 

=  -1; 

=  END_OF_STREAM; 
=  TRUE; 

=  1; 

=  ROOT_NODE; 

=  ROOT_NODE  +  1; 
=  ESCAPE; 

=  TRUE; 

“  1; 

=  ROOT  NODE; 
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tree->leaf[  ESCAPE  ] 
tree->ney.t_free_node 

for  (  i  =  0  ;  i  <  END_OF_STREAM  ;  i++  ) 
tree->leaf[  i  ]  =  -1; 

) 

void  EncodeSymbol (  tree,  c,  output  ) 

TREE  ‘tree; 
unsigned  int  c; 

BIT_FILE  ‘output; 

{ 

unsigned  long  code; 
unsigned  long  current_bit; 
int  code_si2e; 
int  current_node; 

code  =  0; 
current_bit  =  1; 
code_size  =  0; 

current_node  =  tree->leaf[  c  ); 
if  (  current_node  ==  -1  ) 

current_node  =  tree->leaf(  ESCAPE  ]; 
while  (  current_node  !=  ROOT_NODE  )  { 
if  (  (  current_node  S  1  )  ==  0  ) 
code  1=  current_bit; 
current_bit  «=  1; 
code  size+t; 

current_node  =  tree->nodes[  current_node  ) .parent; 

); 

OutputBits  (  output,  code,  code_size  ); 
if  (  tree->leaf(  c  I  ==  -1  )  ( 

OutputBits (  output,  (unsigned  long)  c,  8  ); 
add_new_node (  t  ree ,  c  ) ; 

) 

) 

int  DecodeSymbol {  tree,  input  ) 

TREE  ‘tree; 

BIT_FILE  ‘input; 

( 

int  current_node; 
int  c; 

current_node  =  ROOT_NODE; 

while  (  !tree->nodes(  current_node  ) .child_is_leaf  )  { 
current_node  =  tree->nodes[  current_node  ) .chi Id; 
current_node  +=  InputBit (  input  ); 

} 

c  =  tree->nodes(  current_node  1 .child; 
if  {  c  ==  ESCAPE  )  { 

c  =  (int)  InputBits(  input,  8  ); 


=  ROOT_NODE  +  2; 
=  ROOT  NODE  +  3; 
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adci_new_node  (  t  ree ,  c  )  ; 

) 

return  (  c  ) ; 

} 

void  UpdateModel (  tree,  c  ) 

TREE  ‘tree; 
int  c; 

( 

int  current_node; 
int  new_node; 

if  (  tree->nodes[  ROOT_NODEl .weight  ==  MAX_WEIGHT  ) 

RebuildTree(  tree  ) ; 
current_node  =  tree->leaf[  c  I; 
while  (  current_node  !=  -1  )  { 

tree->nodes[  current_node  1 .weight++; 

for  {  new_node  =  current_node  ;  new__node  >  ROOT_NODE  /  new_node—  ) 
if  (  tree->nodesC  new_node  -  1  1. weight  >= 
tree->nodesC  curtent_node  J .weight  ) 
break; 

if  (  current_node  !=  new_node  )  { 

swap_nodes (  tree,  current_node,  new_node  ) ; 
current_node  =  new_node; 

I 

curcerc_node  =  tree->nodes[  current_node  } .parent; 

} 

I 

void  RebuildTree(  tree  ) 

TREE  ‘tree; 

{ 

int  i; 
int  ; 
int  k; 

unsigned  int  weight; 
printfl  "R"  ) ; 

j  =  tree->ne.xt_free_node  -  1; 

for  (  i  =  j  ;  i  >=  ROOT_NODE  ;  i-  )  { 

if  {  tree->nodes(  i  ) . chiid_is_leaf  )  ( 
tree->nodes[  j  J  =  tree->nodes[  i  1; 

tree->nodes[  j  I .weight  =  (  tree->nodes(  j  1. weight  +  1  )  /  2; 

j-; 

) 

> 

for  (  i  =  tree->ne.'-;t_f ree_node  -  2  ;  j  >=  ROOT_NODE  ;  i  -=  2,  j-  )  ( 
k  =  i  +  1; 

tree->nodes(  j  ) .weight  =  tree->nodesl  i  1 .weight  + 

ttee->nodes(  k  ) .weight; 
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weight  =  tree->nodest  j  ) .weight; 
tree->nodes[  j  ] .child_is_leaf  =  FALSE; 

for  (  k  =  j  +  1  ;  weight  <  tree->nodes[  k  1 .weight  ;  k++  ) 

k-; 

meiranove (  itree->nodes [  j  1,  Stree->nodesI  j  +  1  ], 

{  k  -  j  )  *  sizeof(  struct  node  )  ); 
tree->nodes [  k  ] .weight  =  weight; 
tree->nodes[  k  ] .child  =  i; 
tree->nodes[  k  ] .child_is_leaf  =  FALSE; 

) 

for  (  i  =  tree->next_f ree_node  -  1  ;  i  >=  ROOT_NODE  ;  i—  )  ( 

if  (  tree->nodes[  i  ] . child_is_leaf  )  { 
k  =  tree->nodes[  i  ]. child; 
tree->leaf[  k  )  =  i; 
i  else  » 

k  =  tree->nodes[  i  ) .child; 

tree->nodes[  k  ] .parent  =  tree-nodest  k  +  1  ) .parent  = 

) 

) 

1 


void  swap_nodes(  tree,  i,  j  ) 

TREE  *tree; 
int  i; 
int  j; 

( 

struct  node  temp; 

if  (  tree->nodest  i  1 . child_is_leaf  ) 

tree->leaf[  tree->nodes[  i  ) .child  )  =  j; 
else  ( 

Lree->nodes[  cree->nodes(  i  ). child  ) .parent  =  j; 
tree->nodesC  tree->nodes[  i  ) .child  +  1  ]. parent  =  j; 

) 

if  (  tree->nodes(  j  ] . child_is_leaf  ) 

tree->ieaf[  tree->nodes(  j  1. child  ]  =  i; 
else  ( 

tree->nodes(  tree->nodes[  j  ) .child  ] .parent  =  i; 
tree->nodes[  tree->nodes[  j  ). child  +  1  ). parent  =  i; 

) 

temp  =  tree->nodes(  i  ); 
tree->nodes[  i  1  =  ttee->nodes[  j  ’■ 
tree->nodes(  i  ] .parent  =  temp. parent; 
temp. parent  =  tree->nodes(  j  l.parent; 
tree->nodes[  j  I  =  temp; 


v-^ld  aid  r.':  I-- '  *ree.  c  ) 

TFEE  ‘tree ; 
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int  c; 

( 

int  lightest_node; 

int  new_node; 

int  zero_weight_node; 

lightest_node  =  tree->ne.''t_free_node  -  1; 
new_node  =  tree->ney.t_free_node; 
zero_weight_node  =  tree->next_free_node  +  1; 
tree->next_free_node  +=  2; 

tree->nodes[  new_node  ]  =  tree->nodes[  lightest_node  ]; 
tree->nodest  new_node  1 .parent  =  lightest_node; 
tree->leaf[  tree->nodesC  new_node  ] .child  ]  =  new_node; 
tree->nodes[  lightest_node  ] .child  =  new_node; 

tree->nodes[  lightest_node  ) .child_is_leaf  =  FALSE; 
tree->nodes[  zero_weight_node  ] .child  =  c; 

tree->nodes [  zero_weight_node  ] .child_is_leaf  =  TRUE; 

tree->nodes[  zero_weight_node  ] .weight  =  0; 

tree->nodes[  zero_weight_node  ] .parent  =  lightest_node; 

tree->leaf [  c  1  =  zero_weight_node; 

) 

struct  row  { 

int  fitst_member; 
int  count; 

)  rows  [  32  1  ; 

struct  location  ( 
int  row; 

int  next_member; 
int  column; 

)  positions [  NODE_TABLE_COUNT  ] ; 

void  PrintTree(  tree  ) 

TREE  »tree; 

( 

int  i; 
int  min; 

print_codes(  tree  ); 
for  (  i  “  0  ;  i  <  32  ;  i++  )  ( 
rows [  i  ). count  =  0; 
rows (  i  1 . f irst_member  =  -1; 

} 

calculate_rows  (  tree,  RCX3T_NODE,  0  ); 

calculate_columns (  tree,  ROOT_NODE,  0  ); 

min  -  find_minimum_column(  tree,  ROOT_NODE,  31  ); 

re3cale_columns (  min  ); 

print_tree(  tree,  0,  31  )  ; 
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) 

void  print_codes (  tree  ) 

TREE  *tree; 

( 

int  i; 

prir\tf(  "\r\"  ); 

for  (  i  =  0  ;  i  <  SYMBOL_COUNT  ;  i++  ) 
if  (  tree->leaf[  i  ]  !=  -1  )  ( 
if  (  isprint (  i  )  ) 

printf(  "%5c:  ",  i  ); 

else 

printf(  "<%3d>:  ",  i  ); 

printf (  "%5u",  tree->nodes[  tree->leaf(  i  )  ). weight  ) ; 
printf  (  "  "  ) ; 
print_code(  tree,  i  ) ; 
printf  (  "\n"  ) ; 

} 

} 

void  print_code(  tree,  c  ) 

TREE  *tree; 
int  c; 

( 

unsigned  Long  code; 
unsigned  long  current_bit; 
int  code_size; 
int  current_node; 
int  i; 

code  =  0; 
current_bit  =  1; 
code_size  =0; 

current_node  =  tree->leaf[  c  ]  ; 
while  (  current_node  1=  ROOT_NODE  )  { 
if  (  current_node  &  1  ) 
code  1=  current_bit; 
current_bit  «=  1; 
code_size++; 

current_node  =  tree->nodes[  current_node  J .parent; 

>; 

for  (  i  =  0  ;  i  <  code_size  ;  i++  )  { 
current_bit  »=  1; 
if  (  code  &  current_bit  ) 
putc(  '1',  stdout  ) ; 

else 

putc(  'O',  stdout  ) ; 

} 

) 
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void  calculate_rows (  tree,  node,  level  ) 

TREE  ‘tree; 
int  node; 
int  level; 

{ 

if  (  rows(  level  1 . first_member  ==  -1  )  { 
rows[  level  ) . first_member  =  node; 
rows [  level  J. count  =  0; 
positions (  node  ] . row  =  level; 
positions t  node  J . next_member  =  -1; 

)  else  ( 

positions!  node  J . tow  =  level; 

positions!  node  I . next_member  =  rows!  level  ) . first_member; 
rows !  level  1 . f irst_member  =  node; 
rows!  level  !.count++; 

) 

if  (  ! tree->nodes !  node  ] . child_is_leaf  )  ! 

calculate_rows (  tree,  tree->nodes!  node  1 .child,  level  +  1  ); 
calculate_rows (  tree,  tree->nodes!  node  ]. child  +  1,  level  +  1  ); 

} 

) 

int  calcuiate_columns (  tree,  node,  starting_guess  ) 

TREE  ‘tree; 
int  node; 

int  starting_guess; 

I 

int  next_node; 
int  right_side; 
int  left_side; 

ney.t_node  =  positions!  node  1  . next_member; 
if  (  ne.yt_node  !=  -1  )  I 

if  (  positions!  next_node  ] .column  <  (  start ing_guess  +  4  )  ) 
starting_guess  =  positions!  nevt_node  ) .column  -  4; 

( 

if  (  tree->nodes!  node  ] .child_is_leaf  )  I 

positions!  node  J. column  =  starting_guess; 
return!  staiting_guess  ); 

) 

right_side  =  calculate_columns (  tree,  ttee->nodes!  node  ). child, 
starting_guess  +  2  ); 

left_side  =  calculate_columns (  tree,  tree->nodes!  node  1 .child  +  1, 
right_side  -  4  ); 

starting_guess  =  (  right_side  +  left_side  )  /  2; 
positions!  node  J. column  =  starting_guess; 
return  (  starting_guess  )  ; 

} 

int  f ind_minimum_column (  tree,  node,  max_row  ) 

TREE  ‘tree; 
int  node; 
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int  max_row; 

{ 

int  min_right; 
int  min_left; 

if  (  tree->nodes [  node  ] . child_is_leaf  II  max_row  ==  0  ) 
return!  positions!  node  ] .column  ); 
max_row-; 

min_right  =  find_minimum_column (  tree,  tree->nodest  node  ] .child  +  1, 
max_row  ) ; 

min_left  =  f ind_minimum_column (  tree,  tree->nodes[  node  ] .child,  max_row  ) ; 
if  (  min_right  <  min_left  ) 
return  (  min_right  ) ; 

else 

return  (  min_left  ) ; 

I 

void  rescale_columns (  factor  ) 
int  factor; 

{ 

int  i; 
int  node; 

for  (  i  =  0  ;  i  <  30  ;  i++  )  ( 

if  (  rows!  i  1 . f irst_member  ==  -1  ) 
break; 

node  =  rows!  i  ] . first_member; 
do  ( 

positions!  node  ) .column  -=  factor; 
node  =  positions!  node  ] . ne.xt_member; 

}  while  (  node  !=  -1  ); 

) 

} 

void  print_tree(  tree,  first_row,  last_row  ) 

TREE  'tree; 
int  first_row; 
int  last_row; 

( 

int  row; 

for  (  row  =  first_row  ;  row  <=  last_row  ;  row++  )  ( 
if  (  rows!  row  ] . first_member  ==  -1  ) 
break; 

if  (  row  >  first_row  ) 

print_connecting_l ines (  tree,  row  ); 
print_node_numbers (  row  )  ; 
print_weights (  tree,  row  ); 
print_symbol (  tree,  row  ); 

1 

) 
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#ifndef  ALPHANUMERIC 
Idefine  LEFT_END  218 
♦define  RIGHT_END  191 
♦define  CENTER  193 
♦define  LINE  196 

♦define  VERTICAL  179 
♦else 

♦define  LEFT_END 
♦define  RIGHT_END  '+' 

♦define  CENTER  '+' 

♦define  LINE 
♦define  VERTICAL  '  I ' 

♦endif 

void  print_connecting_lines (  tree,  row  ) 

TREE  *tree; 
int  row; 

{ 

int  current_col; 
int  start_col; 
int  end_col; 
int  center_col; 
int  node; 
int  parent; 

current_col  =  0; 

node  “  tows[  row  1  .first_metnber; 
while  (  node  !=  -1  )  { 

start_col  =  positions(  node  ] .column  +  2; 
node  =  positions [  node  I .next_member; 
end_col  =  positions [  node  ] .column  +  2; 
parent  =  tree->nodes[  node  ) .parent; 
center_col  =  positions [  parent  ] .column; 
center_col  +=  2; 

for  (  ;  current_col  <  start_col  ;  current_col++  ) 
putc (  '  ' ,  stdout  ) ; 
putc (  LEFT_END,  Stdout  ) ; 

for  (  current_col++  ;  current_col  <  center_col  ;  current_col++  ) 
putc(  LINE,  stdout  ); 
putc (  CENTER,  stdout  ) ; 

for  (  current_col++;  current_col  <  end_col  ;  current_col++  ) 
putc(  LINE,  stdout  ); 
putc(  RIGHT_END,  Stdout  ); 
current_col++; 

node  =  positionsf  node  1 .next_member; 

1 

printf  <  "Nn"  ) ; 

) 

void  print_node_numbers (  row  ) 
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int  row; 

{ 

int  current_col; 

int  node; 

int  print_col; 

current_col  =  0; 

node  =  rows [  row  ] . first_member; 
while  (  node  ! =  -1  )  ( 

print_col  =  positions [  node  ). column  +  1; 
for  (  ;  current_col  <  print_col  ;  current_col++  ) 
putc (  '  ’ ,  stdout  ) ; 
printf  (  "%03d",  node  ); 
current_col  +=  3; 

node  =  positions [  node  ] .next_member; 

} 

printf  (  "\n"  ) ; 

} 

void  print_weights (  tree,  row  ) 

TREE  *tree; 
int  row; 

( 

int  current_col; 
int  print_col; 
int  node; 
int  print_size; 
int  next_col; 
char  buffer (  10  ); 

current_col  =  0; 

node  =  rows  [  row  ]  .  f  irst_inember; 
while  (  node  !=  -1  )  ( 

print_col  =  positions!  node  ]. column  +  1; 

sprintf(  buffer,  "%u",  tree->nodes(  node  ) .weight  ); 

if  (  strlen(  buffer  )  <  3  ) 

sprintf(  buffer,  ”%03u",  tree->nodes[  node  ) .weight  ); 
print_size  =  3; 
if  (  strlen(  buffer  )  >  3  )  { 

if  (  positions!  node  ) .next_member  ==  -1  ) 
printsize  =  strlen(  buffer  ); 
else  ! 

next_col  =  positions!  positions!  node  )  .ne.xt_member  ]. column; 
if  (  (  next_col  -  print_col  )  >  6  ) 
print_size  =  strlen!  buffer  ); 
else  I 

strcpy!  buffer,  " — "  ); 
print_size  =  3; 

) 

) 

) 
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for  (  ;  cutrent_col  <  print_col  ;  current_col++  ) 
putc (  '  ' ,  stdout  ) ; 
printf (  buffer  )  ; 
current_col  +=  print_size; 
node  =  positionst  node  1 .next_member; 

) 

printf (  "\n"  ) ; 

) 


void  print_synibol  (  tree,  row  ) 

TREE  *tree; 
int  row; 

{ 

int  current_col; 
int  print_col; 
int  node; 

current_col  =  0; 

node  =  rows[  row  1 . f irst_member; 
while  (  node  !=  -1  )  ( 

if  (  tree->nodes(  node  ] .child_is_leaf  ) 
break; 

node  =  positionst  node  ) .next_member; 


if  (  node  ==  -1  ) 
return; 

node  =  rowst  tow  ) . f irst_member; 
while  (  node  !=  -1  )  ( 

print_col  =  positionst  node  ). column  +  1; 
for  (  ;  current_col  <  print  col  ;  cutrent_col++  ) 
putc (  '  ' ,  stdout  ) ; 

if  (  tree->nodesl  node  1 .child_is_leaf  )  { 

if  (  isprint(  tree->nodest  node  1. child  )  ) 

printf  (  "'%c'",  tree-nodes f  node  ). child  ); 
else  if  (  tree->nodest  node  ). child  ==  END_OF_STREAM  ) 
printf  (  "EOF"  ) ; 

else  if  (  tree->nodest  node  ]. child  ==  ESCAPE  ) 
printf  (  "ESC"  ); 

else 

printf  (  "%02XH",  tree->nodes[  node  ) .child  ); 

)  else 

printf  (  "  %c  ",  VERTICAL  ); 
current_col  +=  3; 

node  =  positionst  node  1  . ney.t_member; 

} 

printf  (  "\n"  ) ; 

1 

end  adaptive  HUFFMAN*********»»*****‘****‘******/ 
/•*♦*•••♦**••♦»♦♦••»♦»»*»•♦»»»•»♦•»••»♦•«*••»•***«•»♦»»*•»*•»•♦••••♦»*«»»♦/ 
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/*********•***•***•**********************************************•*****•**/ 
/*******»»...***.****,.. ♦,**»START  HUFFMAN********************************/ 
typedef  struct  tree_nocle  ( 
unsigned  int  count; 
unsigned  int  saved_count; 
int  child_0; 
int  child_l; 

)  NODE; 

typedef  struct  code  { 
unsigned  int  code; 
int  code_bits; 

}  CODE; 

#ifdef  _ STDC _ 

void  count_bytes(  FILE  *input,  unsigned  long  *long_counts  ); 
void  scale_counts (  unsigned  long  *long_counts»  NODE  *nodes  ); 
int  build_tree(  NODE  *nodes  ); 
void  convert_tree_to_code (  NODE  *nodes, 

CODE  *codes, 

unsigned  int  code_so_far, 
int  bits, 
int  node  ) ; 

void  output_counts (  BIT_FILE  ‘output,  NODE  ‘nodes  ); 
void  input_counts (  BIT_FILE  ‘input,  NODE  ‘nodes  ); 
void  print_model(  NODE  ‘nodes,  CODE  ‘codes  ); 

void  compress_data (  FILE  ‘input,  BIT_FILE  ‘output,  CODE  ‘codes  ); 
void  expand_data (  BIT_FILE  ‘input,  FILE  ‘output,  NODE  ‘nodes, 
int  root_node  ) ; 
void  print_chat (  int  c  ) ; 

#else  /*  _ STDC _  */ 

void  count_bytes ( ) ; 

void  scale_counts ( ) ; 

int  build_tree ( ) ; 

void  convert_tree_to_code ( ) ; 

void  output_counts () ; 

void  input_counts ( ) ; 

void  print_model () ; 

void  compress_data ( ) ; 

void  expand_data ( ) ; 

void  print_char ( ) ; 

#endif  /*  _ STDC _  */ 

char  *ConipressionNaine2  =  "static  order  0  model  with  Huffman  coding"; 
char  *Usage2  = 

"infile  outfile  [-d) \n\nSpecifying  -d  will  dump  the  modeling  dataXn"; 

void  CompressFile2 (  input,  output  ) 

FILE  ‘input; 

BIT_FILE  ‘output; 

{ 

unsigned  long  ‘counts; 

NODE  ‘nodes; 
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CODE  ‘codes; 
int  root_node; 

counts  =  (unsigned  long  *)  calloc(  256,  sizeof  (  unsigned  long  )  ); 
if  (  counts  ==  NULL  ) 

fatal_error(  "Error  allocating  counts  arrayVn"  ); 
if  (  (  nodes  =  (NODE  *)  calloc  (  514,  sizeof  (  NODE  )  )  )  ==  NULL  ) 
fatal_error(  "Error  allocating  nodes  arrayXn”  ); 
if  (  (  codes  =  (CODE  *)  calloc  (  257,  sizeof (  CODE  )  )  )  ==  NULL  ) 
fatal_error (  "Error  allocating  codes  arrayXn"  ) ; 
count_bytes(  input,  counts  ) ; 
scale_counts  (  counts,  nodes  ) ; 
output_counts (  output,  nodes  ) ; 
root_node  =  build_tree(  nodes  ); 

convert_tree_to_code(  nodes,  codes,  0,  0,  root_node  ); 

coitpress_data (  input,  output,  codes  )  ; 

free(  (char  *)  counts  ); 

free(  (char  *)  nodes  ) ; 

free(  (char  *)  codes  ) ; 


void  ExpandFile2(  input,  output  ) 

BIT_FILE  ‘input; 

FILE  ‘output; 

( 

NODE  ‘nodes; 
int  root_node; 

if  (  (  nodes  =  (NODE  ‘)  calloc (  514,  sizeof (  NODE  )  )  )  ==  NULL  ) 
fatal_error(  "Error  allocating  nodes  array \n"  ); 
input_counts (  input,  nodes  ); 
root_node  =  build_tree (  nodes  ) ; 
expand_data(  input,  output,  nodes,  root_node  ); 
free(  (char  ‘)  nodes  ); 

) 

void  output_counts (  output,  nodes  ) 

BIT_FILE  ‘output; 

NODE  ‘nodes; 

{ 

int  first; 
int  last; 
int  next; 
int  i; 

first  =  0; 

while  (  first  <  255  &&  nodes[  first  (.count  -=  0  ) 
first++; 

for  (  ;  first  <  256  ;  first  =  next  )  ( 
last  =  first  +  1; 
for  (  ;  ;  )  ( 
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for  (  ;  last  >  256  ;  last++  ) 

if  (  nodes[  last  1 .count  ==  0  ) 
break; 

last-; 

for  (  next  =  last  +  1;  next  <  256  ;  next++  ) 
if  {  nodes!  ne.xt  ). count  !=  0  ) 
break; 

if  (  next  >  255  ) 
break; 

if  (  (  next  -  last  )  >  3  ) 
break; 


}; 

if 

last  =  next; 

(  putc(  first. 

output->file  )  !=  first  ) 

fatal_error ( 

"Error  writing  byte  countsXn"  )  ; 

if 

(  putc (  last. 

output->file  )  !=  last  ) 

fatal_error ( 

"Error  writing  byte  countsXn"  ) ; 

for 

(  i  =  first  ; 

'  i  <=  last  ;  i++  )  ! 

if  (  putc (  nodes!  i  ] -count,  outpuc->file  )  != 
(int)  nodes!  i  ]. count  ) 
fatal_error(  "Error  writing  byte  counts\n"  ); 

) 

) 

if  (  putc(  0,  output->file  )  !=  0  ) 

fatal_error(  "Error  writing  byte  countsNn"  ); 


void  input_counts (  input,  nodes  ) 

BIT_FILE  ‘input; 

NODE  ‘nodes; 

( 

int  first; 
int  last; 
int  i; 
int  c; 

for  (  i  =  0  ;  i  <  256  ;  i++  ) 
nodes!  i  ] .count  =  0; 

if  (  (  first  =  getc(  input->file  )  )  ==  EOF  ) 

fatal_error(  "Error  reading  byte  counts\n''  ); 
if  (  (  last  =  getc (  input->file  )  )  ==  EOF  ) 

fatal_error(  "Error  reading  byte  countskn"  ); 
for  (  ;  ;  )  ! 

for  (  i  =  first  ;  i  <=  last  ;  i++  ) 

if  (  (  c  =  getc(  input->file  )  )  ==  EOF  ) 

fatal_error(  "Error  reading  byte  countsXn"  ); 

else 

nodes  I  i  ) .count  =  (unsigned  int)  c; 
if  (  (  first  =  getc!  input->file  )  )  ==  EOF  ) 

fatal_error(  "Error  reading  byte  countsXn"  ); 
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if  (  first  ==  0  ) 
break; 

if  (  (  last  =  getc(  input->file  )  )  ==  EOF  ) 

f atal_error (  "Error  reading  byte  countsXn"  ) ; 

) 

nodes!  END_OF_STREAM  1 .count  =  1; 

( 

#ifndef  SEEK_SET 
♦define  SEEK_SET  0 
tendif 

void  count_bytes (  input,  counts  ) 

FILE  ‘input; 
unsigned  long  ‘counts; 

{ 

long  input_marker; 
int  c; 

input_matker  =  ftell (  input  )  ; 
while  (  {  c  =  getc  (  input  ) )  ! =  EOF  ) 
counts!  c  ]++; 

fseek!  input,  input_marker,  SEEK_SET  ); 

) 

void  scale_rounts (  counts,  nodes  ) 
unsigned  long  ‘counts; 

NODE  ‘nodes; 

1 

unsigned  long  max_count; 
int  i; 

ma.x_count  =  0; 

for  (  i  =  0  ;  i  <  256  ;  i++  ) 

if  (  counts!  i  1  >  raax_count  ) 
ma.x_count  =  counts  !  i  1 ; 
if  (  max_count  ==  0  )  ! 
counts!  01=1; 
max_count  =  1 ; 

) 

max_count  =  max_count  /  255; 
max_count  =  max_count  +  1; 
for  {  i  =  0  ;  i  <  256  ;  i++  )  1 

nodes!  i  1 .count  =  (unsigned  int)  (  counts!  i  )  /  max_count  ); 
if  (  nodes!  i  1 .count  ==  0  &&  counts!  i  ]  !=  0  ) 
nodes!  i  1 .count  =  1; 

! 

nodes!  END_OF_STREAM  1 .count  =  1; 

) 
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int  build_tree(  nodes  ) 
NODE  ‘nodes; 

{ 

int  next_free; 
int  i; 
int  min_l; 
int  min  2; 


nodes[  513  1  .count  =  O.xffff; 

for  (  next_free  =  END_OF_STREAM  +  1  ;  ;  next_free++  )  { 
min_l  =  513; 
min_2  =  513; 

for  (  i  =  0  ;  i  <  next_free  ;  i++  ) 
if  (  nodes[  i  ] .count  !=  0  )  { 

if  (  nodes (  i  1 .count  <  nodes(  min_l  1 .count  )  { 
min_2  =  min_l; 
min_l  =  i; 

)  else  if  (  nodest  i  ) .count  <  nodest  min_2  ]. count  ) 
min  2  -  i; 


if  (  min_2  ==  513  ) 
break; 

nodes (  next_free  ] .count  =  nodes [  min_l  ] .count 

+  nodes{  min_2  ] .count; 
nodes f  min_l  } .saved_count  =  nodes [  min_l  J. count; 
nodes [  min_l  ) .count  =  0; 

nodes [  min_2  ) .saved_count  =  nodest  min_2  ) .count ; 
nodest  min_2  )  .count  =  0; 
nodest  next_free  ] .child_0  =  min_l; 
nodest  next_free  ] .child_l  =  rain_2; 


next_f  ree— ; 

nodest  next_free  J . saved_count  =  nodest  next_free  ). count; 
return  (  next_f ree  ) ; 


void  convert_tree_to_code(  nodes,  codes,  code_so_far,  bits,  node  ) 
NODE  ‘nodes; 

CODE  ‘codes; 

unsigned  int  code_so_far; 
int  bits; 
int  node; 

{ 

if  (  node  <=  END_OF_STREAM  )  t 

codes  I  node  ) .code  =  code_so_far; 
codes  I  node  ) .code_bits  =  bits; 
return; 

) 

code_so_far  <<=  1; 
bits++; 
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convert_tree_to_code (  nodes,  codes,  code_so_far,  bits, 
nodes (  node  1 .child_0  ) ; 

convert_tree_to_code(  nodes,  codes,  code_so_far  1  1, 
bits,  nodes (  node  ].child_l  ); 

) 

void  print_model (  nodes,  codes  ) 

NODE  * nodes, • 

CODE  *codes; 

{ 

int  i; 


for  (  i  =  0  ;  i  <  513  ;  i++  )  { 

if  (  nodes [  i  ] .saved_count  !=  0  )  { 
printf  (  "node="  ) ; 
print_char (  i  ) ; 

printf  (  "  count=%3d",  nodes (  i  ] . saved_count  ); 
printf (  "  child_0="  ) ; 
print_char (  nodes (  i  ] .child_0  ) ; 
printf (  "  child_l="  ) ; 
print_char (  nodes(  i  ] .child_l  ); 
if  (  codes  SS  i  <=  END_OF_STREAM  )  ( 
printf (  "  Huffman  code="  ); 

FilePrintBinary (  stdout,  codes(  i  l.code,  codes(  i  J .code_bits  ) ; 

} 

printf  (  "\n"  ) ; 

» 

) 

} 

void  print_char (  c  ) 
int  c; 
t 

if  (  c  >=  0x20  a  c  127  ) 
printf  (  "'ic'",  c  )  ; 

else 

printf  (  "%3d",  c  ); 

) 


void  ccmpress_data (  input,  output,  codes  ) 
FILE  ‘input; 

BIT_FILE  ‘output; 

CODE  ‘codes; 

( 

int  c; 


( 


while  (  (  c  =  getc (  input  )  )  !=  EOF  ) 

OutputBits(  output,  (unsigned  long)  codes[  c  ) .code, 
codes[  c  ! .code_bits  ) ; 

OutputBits(  output,  (unsigned  long)  codest  END_OF_STREAM  l.code, 
codes [  END_OF_STREAM  l.code  bits  ); 
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Image  Name 

Actual  Size 

Olaplayed  Size 

Petra 

1,636x2,152 

320x340 

Vale 

2,523x1,617 

504x323 

Twins 

2,529x1,578 

505x315 

Room 

2,110x2,695 

422x539 

Turbans 

2,523x1,617 

504x323 
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Figure  13.  Petra  -  original  image  (left)  and  compressed  91.91:1  and  restored  (right) 


Figure  15.  Twins  -  original  image  (top)  and  compressed  89.31:1  and  restored  (bottom) 


44 


Chapter  4  Achieving  High  Compression  Ratios 


Chapter  4  Achieving  High  Compression  Ratios 


45 


Figure  16.  Room  -  compressed  159:1  and  restored  image  (left)  and  original  (right) 


Figure  17.  Turbans  -  original  image  (top)  and  compressed  100.9:1  and  restored 
(bottom) 
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Appendix  A 

Compressions  with  the  Cosine 
Transform  and  Singular  Value 
Decomposition  (SVD) 


The  following  set  of  images  demonstrates  increasing  distortion  because 
of  increasing  compression  rates  for  two  methods  •  the  Cosine  Transform 
and  SVD.  This  display  is  by  no  means  a  comparison  of  the  two  methods. 
The  Cosine  Transform  is  performed  in  8x8  blocks;  whereas,  SVD  is  per¬ 
formed  over  the  entire  image.  If  SVD  were  executed  in  8x8  blocks,  the 
method’s  ratio  of  compression  to  distortion  would  most  likely  improve. 


Figure  A1.  Original  image 
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Figure  A2.  DCT  encoding  followed  by  Huffman  encoding  then  Huffman  decoding  and 
inverse  DCT  (MSE  =  2.734;  compression  with  Huffman  encoding  of  DCT 
coefficients  =  7.186:1) 


Figure  A3.  DCT  encoding  with  a  threshold  of  1  followed  by  Huffman  encoding,  then 
Huffman  decoding  and  inverse  DCT  (MSE  =  5.859;  compression  with 
Huffman  encoding  of  DCT  coefficients  =  12.326:1) 
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Figure  A5,  DCT  encoding  witfi  a  threshold  c'  3  followed  by  Huff,  "an  encoding,  then 
Hu‘'man  decoding  and  inverse  DCT  (MbE  =  14.544:  compression  with 
Huffman  encoding  of  DCT  coefficients  =  18.488:1) 
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Figure  A7.  DOT  encoding  with  a  threshold  of  5  followed  by  Huffman  encoding,  then 
Huffman  decoding  and  inverse  DCT  (MSE  »=  25.39;  compression  with 
Huffman  encoding  of  DCT  coefficients  =  23.34:1) 
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Figure  A6.  DCT  encoding  with  a  threshold  of  4  followed  by  Huffman  encoding,  then 
Huffman  decoding  and  inverse  DCT  (MSE  =  20.047;  compression  with 
Huffman  encoding  of  DCT  coefficients  =  21.13:1) 


Figure  A8.  A  2:1  compression  with  SVD  (MSE  =  0.765) 


Figure  A9.  A  4:1  compression  with  SVD  (MSE  =  3.802) 
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Figure  A10.  A  10:1  compression  with  SVD  (MSE  =  29.584) 


Figure  All.  A 25:1  compression  with  SVD  (MSE  =  124.2) 
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Figure  A12.  A  100:1  compression  with  SVD  (MSE  =  552.95) 
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Appendix  B 

“Image  Lab”  Software  User’s 
Guide 


File 


Copy  File,  Delete  File,  and  Rename  File  perform  similarly  to  their 
Disk  Operating  System  (DOS)  equivalents.  Copy  File  copies  file  informa¬ 
tion  from  one  file  to  another.  Delete  File  deletes  a  Hie.  Rename  File 
moves  file  information  from  one  Hie  to  another. 

Load  File  requests  a  image  Hie  name  in  either  the  RGB  format  or  the 
greyscale  format.  Image  width  and  height  are  requested.  This  selection  is 
a  prerequisite  to  displaying  an  image.  Once  an  image  file  is  loaded,  it 
does  not  need  to  be  reloaded;  the  most  recent  image  file  and  its  dimen¬ 
sions  are  stored  in  global  memory.  For  example,  if  a  different  display 
mode  is  desired,  change  the  mode  in  “Options,”  and  then  select  Display 
Full  Image  under  “View”;  the  image  will  then  be  redisplayed  without  re¬ 
quiring  the  user  to  reload  the  image  information. 

Load  Palette  requests  an  RGB  or  greyscale  palette  name.  An  RGB  pal¬ 
ette  must  list  the  256  intensities  for  (a)  red,  (b)  green,  and  (c)  blue  for  a 
total  of  768  entries.  A  RGB  pixel  is  translated  by  the  following  mask:  R 
R  R  G  G  G  B  B.  Bits  S-7  indicate  the  intensity  of  red,  bit  7  being  the 
MSB.  Bits  2-4  indicate  the  intensity  of  green,  bit  4  being  the  MSB.  Bits 
0-1  indicate  the  intensity  of  blue,  bit  1  being  the  MSB.  A  greyscale  pal¬ 
ette  must  list  the  256  grey  intensities  and  repeat  the  list  twice  for  a  total  of 
768  entries.  (Note:  To  obtain  any  shade  of  grey,  the  intensities  of  red, 
green,  and  blue  must  be  equal.)  All  palettes  must  be  768  bytes  in  size. 

No  stray  bits  are  allowed!  Once  a  palette  is  loaded,  it  remains  in  global 
memory;  therefore,  the  palette  does  not  require  reloading  from  one  image 
to  the  next.  The  default  palette  is  GRAYTEST.PAL. 

Quit  ends  the  use  of  “Image  Lab.” 
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View 
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Show  Red  shows  only  the  red  intensities.  Show  Green  shows  only  the 
green  intensities.  Show  Blue  shows  only  the  blue  intensities.  Show  Bit 
Plane  1-7  masks  out  all  bits  except  the  requested  one.  If  the  bit  is  present 
in  a  pixel,  white  will  be  displayed,  else  black  will  be  displayed.  Display 
Full  Image  redisplays  the  original  image. 


Analysis 

Calculate  Entropy  calculates  the  entropy  and  predicts  the  theoretical 
compression  ratio  for  an  image  or  processed  file.  The  theoretical  compres¬ 
sion  ratio  is  based  on  Huffman-0.  Chop  Image  File  allows  a  subimage  to 
be  created  from  an  image  file.  The  original  file  name  and  dimensions  are 
requested  along  with  the  output  file  name,  starting  and  ending  horizontal 
coordinates,  and  the  starting  and  ending  vertical  coordinates.  The  top  left 
pixel  in  the  original  file  is  located  at  X  =  1,  Y  =  1.  The  starting  and  end¬ 
ing  bounds  are  inclusive.  Compare  Files  compares  the  pixels  of  two  iden¬ 
tically  sized  files.  The  threshold  is  the  lowest  difference  that  is  to  be 
flagged.  The  output  will  display  four  aspects  of  the  differing  pixels. 

Pixel  1  is  the  value  of  the  pixel  in  the  first  file.  Pixel  2  is  the  value  of  the 
pixel  in  the  second  file.  X  is  the  horizontal  coordinate.  Y  is  the  vertical 
coordinate.  The  top  left  pixel  is  located  at  X  =  0,  Y  =  0.  This  selection  is 
helpful  in  analyzing  images  processed  by  lossy  techniques.  The  original 
and  reconstructed  images  can  be  compared  on  a  pixel-by-pixel  basis. 
Compression  Ratio  tells  the  original  file  size,  the  compressed  file  size, 
and  the  ratio.  Difference  Images  creates  a  difference  image  between  orig¬ 
inal  and  reconstructed  images.  Zero  error  is  represented  by  gray  or  inten¬ 
sity  128.  Increasing  positive  error  is  represented  by  increasing  intensity, 
and  increasing  negative  error  is  represented  by  decreasing  intensity.  His¬ 
togram  makes  a  text  histogram  of  the  pixels  in  an  file.  Mean  Squared 
Error  finds  the  MSB  between  two  image  files.  The  two  files  do  not  have 
to  be  the  same  size.  For  color  processed  images,  this  selection  gives  dis¬ 
torted  results  since  the  color  procedures  work  with  RED  bits,  GREEN 
bits,  and  BLUE  bits  instead  of  full  8-bit  pixels.  Paste  Image  Files:  Hori¬ 
zontally  pastes  two  images  side  by  side;  Paste  Image  Files:  Vertically 
pastes  one  image  above  the  other.  The  two  images  do  not  have  to  be  the 
same  height  or  width.  This  selection  is  helpful  in  visually  comparing  orig¬ 
inal  and  reconstructed  images. 


Lossless 


Four  options  are  available  for  compression  and  decompression:  (a) 
Huffman-0,  (b)  Adaptive  Huffman,  (c)  LZW,  and  (d)  Arithmetic.  If  a 
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nie  is  compressed  in  one  option,  it  must  be  decompressed  in  the  same 
option. 


Lossy 

Three  transforms  and  inverse  transforms  are  available  for  compression 
and  decompression:  (a)  Cosine,  (b)  Hadamard,  and  (c)  Sine.  If  a  file  is 
compressed  in  one  option,  it  must  be  decompressed  in  the  same  option. 
Black  &  White  processes  the  image  as  a  greyscale  image.  For  compres¬ 
sion,  the  reconstructible  DCT  will  be  located  in  *.l*;  the  displayable  DCT 
will  be  located  in  the  output  file  specified.  For  decompression,  an  *.l* 
file  must  exist  to  reconstruct,  or  an  ^.d*  file  must  exist  assuming  that  the 
image  can  be  cut  evenly  into  blocks  specified  by  the  lossy  block  mode 
being  used.  Color  processes  the  image  as  an  RGB  image  by  translating  to 
the  Y,  Cy.  Cr  format  as  shown  in  Equations  B1-B3. 


Y=  0.299  *R +  0.587  *G +  0.114  *B  (Bl) 

=  -0.16874  *  R  -  0.33126  *  G  +  0.5  *  B  (B2) 

C^  =  0.5*R-  0.41869  *  G  -  0.08131  *  B  (B3) 

RGB  format  is  regained  with  Equations  B4-B6. 

R  =  Y+  1.402  *  (B4) 

G  =  Y-  0.34414  *  -  0.71414  *  (B5) 

B  =  Y  +  1.772  (B6) 


For  compression,  the  displayable  DCT’s  will  be  located  in  *.yyy,  *.ccb, 
and  *.ccr;  the  reconstructible  DCT’s  will  be  located  in  *.lyy,  *.lcb,  and 
*.lcr.  For  decompression,  *.lyy,  *.lcb,  and  *.lcr  files  must  exist  to  re¬ 
construct.  File  names  are  not  a  problem  as  long  as  all  processing  is  done 
by  this  software! 

In  compression,  the  DCT  is  manipulated  by  two  factors:  thresholding 
and  zonal  filtering.  If  the  absolute  value  of  a  DCT  entry  is  less  than  or 
equal  to  the  threshold,  that  entry  is  set  to  zero.  Zonal  filtering  is  more 
complicated.  The  zonal  filter  level  tells  what  coefficients  to  keep  in  each 
DCT  square.  For  example,  if  the  lossy  mode  is  set  to  8x8  and  the  zonal  fil¬ 
ter  level  equals  4,  each  8x8  block  of  the  DCT  will  retain  the  16  entries  in 
the  top  left  comer  that  make  a  4x4  square.  All  coefficients  outside  the 
4x4  are  set  to  zero.  To  disable  zonal  filtering,  select  level  8  for  8x8  mode, 
16  for  16x16  mode,  and  32  for  32x32  mode. 
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Options 


Set  Video  Mode  displays  the  possible  video  modes  and  allows  one  to 
be  selected.  The  default  mode  is  set  to  the  highest  resolution  that  the  soft¬ 
ware  can  find.  If  the  PC’s  graphics  card  is  not  a  Super  VGA  card,  most 
likely,  the  only  mode  that  will  work  is  320x200.  If  images  will  not  dis¬ 
play,  set  the  video  mode  to  320x200. 

Set  Lossy  Mode  allows  three  different  lossy  modes  to  be  selected: 

8x8,  16x16,  and  32x32.  Each  mode  represents  the  block  size  that  the 
image  will  be  cut  into  to  be  processed.  The  image  Hie  does  not  have  to  be 
cut  evenly  into  squares  of  the  selected  block  size.  For  example,  a  17x17 
image  can  be  processed  in  any  of  the  lossy  modes.  The  8x8  and  16x16 
modes  can  process  image  files  with  a  maximum  width  of  1,024  pixels. 

The  32x32  mode  is  restricted  to  a  maximum  width  of  640  pixels.  The 
height  is  boundless.  The  8x8  processes  Hies  in  one  pass.  If  the  image 
width  is  less  than  or  equal  to  512  pixels,  the  16x16  processes  files  in  one 
pass,  else  it  processes  files  in  two  passes.  The  32x32  requires  a  pass  for 
each  160-pixel- wide  strip.  The  last  strip  is  not  necessarily  160  pixels 
wide.  For  example,  an  image  that  is  350  pixels  wide  would  require  two 
160-pixel-wide  strips  and  a  third  30-pixel- wide  strip.  All  strips  are  pasted 
together  at  the  end  of  the  procedure.  As  the  files  are  processed,  dots  are 
displayed.  Each  continuous  row  of  dots  represents  a  strip.  Lossy  color 
procedures  process  Y  strips  first,  Cf,  strips  next,  and  strips  last.  The  de¬ 
fault  lossy  mode  is  8x8. 

Set  Menu  Color  provides  four  menu  color  options;  (a)  Red,  (b)  Green, 
(c)  Blue,  and  (d)  Black  and  White. 

Make  Palette  allows  the  user  to  create  an  RGB  palette.  The  red, 
green,  and  blue  intensities  should  be  entered  in  ascending  order.  Once  en¬ 
tered,  the  intensities  are  scrambled  into  an  RGB  palette. 
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“Image  View”  Software  User’s 
Guide 


File 

Load  Series  File  uses  information  from  a  Hie  to  display  a  sequential 
set  of  images.  The  file  format  is  as  follows: 

number^of^lmages  model  palette_namel  Image^^namel  xl  yl  mode2  ... 


The  modes  are  abbreviated  as  follows:  1=320x200,  2=640x480, 
3=800x600, 4=1024x768.  This  file  must  be  an  ASCII  file;  if  WP  is  used 
to  generate  this  file,  use  CNTL  F5  to  save  the  file  as  ASCII  text.  Any 
combination  of  RGB  and/or  grayscale  images  may  be  displayed.  Once  a 
series  is  loaded,  it  is  stored  in  global  memory;  therefore,  the  series  does 
not  need  to  be  reloaded  to  perform  “View”  selections. 

Quit  ends  the  use  of  “Image  View.” 


View 

Show  Red  shows  only  the  red  intensities.  Show  Green  shows  only  the 
green  intensities.  Show  Blue  shows  only  the  blue  intensities.  Show  Bit 
Plane  1-7  masks  out  all  bits  except  the  requested  one.  If  the  bit  is  present 
in  a  pixel,  white  will  be  displayed,  else  black  will  be  displayed.  Display 
Full  Image  redisplays  the  original  series. 


Options 

Set  Menu  Color  provides  four  menu  color  options:  (a)  Red,  (b)  Green, 
(c)  Blue,  and  (d)  Black  and  White. 
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Appendix  D 

Source  Code  for  Individual 
Programs 


ENTROPY . BAS 


10  DIM  J(25'7)  ,  K1  (257) 

20  CLASS 
30  SUM  =  0 
40  ICOUNT  =  0 

50  INPUT  "Type  name  for  input  file  or  <RET>  F$ 

60  PRINT 

70  OPEN  F$  FOR  BINARY  AS  #1 
80  A$  =  INPUT$(1,  1) 

90  IF  EOF{l)  THEN  GOTO  130 

100  ICOUNT  =  ICOUNT  +  1 

110  J(ASC(A$))  =  J(ASC(A$))  +  1 

120  GOTO  80 

130  FOR  I  =  0  TO  255 

140  IF  J(I)  =0  THEN  GOTO  160 

150  SUM  =  SUM  -  (J(I)  /  ICOUNT)  /  LOG(2)  *  LOG(J(I)  /  ICOUNT) 

160  NEXT  I 

170  PRINT  "The  entropy  =  SUM;  "  bits  per  symbol." 

180  PRINT  "A  lossless  compression  of  8  /  SUM;  "  to  1  is  possible 
with  entropy  coding." 

190  CLOSE  #1 
200  PRINT 

210  PRINT  "Type  any  )tey  to  end  " 

220  A$  =  INKEYS 

230  IF  AS  =  ""  THEN  GOTO  220 

240  END 


MSE.BAS 


10  REM  Program  Mean-Square-Error 

20  REM  this  program  computes  the  mean  square  error  (between  two 
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25  REM  files 
30  n  -  1 
40  CLASS 

50  INPUT  "Type  filename  #1  FS 
60  INPUT  "Type  filename  #2  G$ 

■70  OPEN  F$  FOR  BINARY  AS  #1 
80  OPEN  G$  FOR  BINARY  AS  #2 
90  A$  =  INPUTS  (1,  1) 

100  B$  =  INPUTS (1,  2) 

110  IF  EOF(l)  THEN  GOTO  1000 

120  SUM  =  SUM  +  (ASC(AS)  -  ASC(BS))  "  2 

130  n  =  n  +  1 

140  GOTO  90 

1000  SUM  =  SUM  /  n 

1010  PRINT  "The  mean  square  error  =  SUM 
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♦include  <math.h> 

♦include  <stdio.h> 

/•Huffman  Estimator*/ 

/*  Mike  Ellis  */ 
main  ( ) 

{ 

char  string [ 80 ); 
unsigned  char  p; 
int  i,k; 

float  j  [256]  .pi.kel; 
float  entropy; 

FILE  *input_fil6; 

FILE  *infile; 

entropy  =  0;  /'Set  all  Variable  to  0  */ 

for  (  i  =  0;  i<=255;  i++) 

( 

jCil=0; 

) 

pixel  =  0; 

printf  ("\nType  name  of  file  /‘Open  the  input  file*/ 

scanf  (”%s", string  ); 

input_fi le=f open (string, "r+b") ;  /*Por  Read  +  Binary  */ 

while  ( ! feof (input_file) )  /*Read  to  end-of-f ile*/ 


fscanf  (input_file, "Ic", 4p) 

pixel  =  pixel  +  1; 

k=p; 

j(k]=j[kl+l; 

} 

for  (i  =  0;  i  <=255;  i++) 

( 

if  (j(il  !=0) 


;  /*input  as  unsigned  char*/ 
/•count  characters  read*/ 
/•convert  char  to  integer*/ 
/•number  of  times  that  */ 
/•this  char  was  read  */ 
/•compute  entropy*/ 


entropy  =  entropy  +  j [i] *log (j (ij /pixel) ; 

) 

) 

entropy  =  -entropy/ (pixel*log (2) ) ; 

printf  ("\nEntropy  =  %f", entropy) ;  /*print  the  entropy*/ 
printf ("\nEntropy  encoding  can  achieve"); 
printf ("  a  %f  to  1  compression. \n", 8/entropy); 
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IMAGE . BAS 


10  REM 

20  REM  PROGRAM  "IMAGE"  FOR  L  iPLAY  GRAYSCALE  OR  COLOR  IMAGES 
30  REM  USE  UNDER  QUICKBASIC  VERSION  4.5 
40  REM 
50  CLASS 

60  INPUT  "Type  Image  Filename  CS 
70  DEFINT  A-Z 

80  INPUT  "Type  X  Dimension  XDIM 
90  INPUT  "Type  Y  Dimension  YDIM 

100  GOSUB  210  ' set  up  256  color  palette 

110  OPEN  CS  FOR  BINARY  AS  #1 

120  WINDOW  SCREEN  {0,  0)-(XDIM,  YDIM) 

130  FOR  I  =  1  TO  YDIM 
140  AS  =  INPUTS (XDIM,  1) 

150  FOR  J  =  1  TO  XDIM 
160  B  =  ASC(MIDS(A$,  J,  1)  ) 

170  PSET  (J,  I),  'display  the  pixel 

180  NEXT 
190  NEXT 
200  GOTO  200 

210  INPUT  "Type  Palette  Filename  PS 
220  ~CREEN  13 

230  OPEN  PS  FOR  BINARY  AS  #1 

240  DIM  RED(256),  GREEN(256),  BLUE(256) 

250  FOR  K  =  0  TO  255 
260  AS  =  INPUTS (1,  1) 

270  RED(K)  =  ASC(AS) 

280  NEXT  K 

290  FOR  K  =  0  TO  255 
300  AS  =  INPUTS (1,  1) 

310  GREEN (K)  =  ASC'AS) 

320  NEXT  K 

330  FOR  K  =  0  TO  255 
340  AS  =  INPUTS (1,  1) 

350  BLUE(K)  =  ASC(AS) 

360  NEXT  K 

370  FOR  I  =  0  TO  255 

380  PALETTE  I,  (INT(BLUE(I)  /  4))  ‘  65536!  +  256  *  (INT(GREEN( I) / 

4) )  +  INT(RED(I) )  /  4 

390  NEXT  I 

400  CLOSE  #1 

410  RETURN 
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10  COMMON  DATA1%()  'More  than  64K  block 

20  CLEAR 

30  DIM  C(8,  8),  DATA1%(90,  1,  8,  8),  TEMP (8,  8) 

40  DIM  TEMP2<8,  8) 

50  MAX(1,  1)  =  -100000! 

60  MIN{1,  1)  =  lOCOOO! 

70  REM 

80  REM  Collect  Input  Data  8X8  Byte  Blocks 
90  REM 

100  INPUT  "Type  Name  of  Input  File  F$ 

110  IF  F$  =  ""  THEN  FILES:  GOTO  100 
120  K  =  INSTRd,  F$, 

130  IF  K  <>  0  THEN  A$  =  LEFTS (FS,  K  -  1)  ELSE  AS  =  FS 
140  INPUT  "Type  X  Range  XINDEX 

150  INPUT  "Type  Y  Range  YINDEX 

160  XINDEX  =  (XINDEX  /  8) 

170  YINDEX  -  (YINDEX  /  8) 

180  K1  =  XINDEX  '  YINDEX 
190  GS  =  AS  +  ".dct" 

200  OPEN  FS  FOR  BINARY  AS  #1 
210  OPEN  GS  FOR  OUTPUT  AS  #2 

260  GOSUB  870  'Define  cosine  transform  matrix 

290  REM 

300  FOR  J  =  1  TO  YINDEX 
310  PRINT  7*5 
320  FOR  Y  =  1  TO  8 
330  II  =  0 

340  AIS  =  INPUTS (8  *  XINDEX,  1) 

350  FOR  I  =  1  TO  XINDEX 

360  FOR  X  =  1  TO  8 

370  II  =  II  +  1 

380  AS  =  MIDS(A1S,  II,  1) 

390  DATA1%(I,  1,  Y,  X)  =  ASC(AS)  -  128 
400  NEXT  X 
410  NEXT  I 
420  NEXT  Y 

430  GOSUB  590  'Perform  the  cosine  transform 

440  FOR  X  =  1  TO  8 

450  FOR  I  =  1  TO  XINDEX 

460  FOR  Y  =  1  TO  8 

470  K  =  (DATA1% (I,  1,  X,  Y) ) 

480  SS  =  SS  +  CHRS(K  +  128) 

490  NEXT 
500  NEXT 

510  PRINT  #2,  SS; 

520  SS  =  "" 

530  NEXT 
540  REM 
550  NEXT 
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560  CLOSE  #1 
570  CLOSE  #2 
580  END 
590  REM 
600  REM 

610  FOR  I  -  1  TO  XINDEX 
620  REM  FOR  k  =  1  TO  8 
630  FOR  L  =  1  TO  8 
640  TEMPI  =  0 
650  FOR  M  =  1  TO  8 
660  FOR  N  =  1  TO  8 

670  TEMPI  =  TEMPI  +  DATA1%(I,  1,  M,  N)  *  C  (L,  N) 

680  NEXT 

690  TEMP(M,  L)  =  TEMPI 

700  TEMPI  =  0 

710  NEXT 

720  NEXT 

730  REM  NEXT 

740  FOR  L  =  1  TO  8 

750  TEMPI  =  0 

760  FOR  M  =  1  TO  8 

770  FOR  N  =  1  TO  8 

780  TEMPI  =  TEMPI  +  C(M,  N)  *  TEMP  (N,  L) 

790  NEXT  N 

800  DATA1%(I,  1,  M,  L)  =  TEMPI  /  8 

810  TEMPI  =  0 

820  NEXT 

830  NEXT 

840  REM 

850  NEXT  I 

860  RETURN 

870  REM 

880  REM  Generate  Cosine  Transform  Matrix 
890  FOR  K  =  0  TO  7 
900  FOR  N  =  0  TO  7 

910  IF  K  =  0  THEN  C (K  +  1,  N  +  1)  =  1  /  SQR(8) 

920  IF  K  <>  0  THEN  C(K  +  1,  N  +  1)  =  SQR(.25)  «  COS(3. 14159  *  (2  *  N  +  1 )  ♦  K  /  16) 

930  NEXT  N 
940  NEXT  K 
950  RETURN 
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10  COMMON  DATAIO  'More  than  64K  block 

20  CLEAR 

30  DIM  C<8,  8),  DATAIOO,  1,  8,  8),  TEMP(8,  8) 

40  MAXd,  1) - 100000! 

50  MINd,  1)  =  100000! 

60  REM 

70  REM  Collect  Input  Data  8X8  Byte  Blocks 
80  REM 

90  INPUT  "Type  Name  of  Input  File  F$ 

100  IF  F$  =  ""  THEN  FILES:  GOTO  90 
110  K  =  INSTRd,  F$, 

120  IF  K  <>  0  THEN  AS  =  LEFTS (F$.  K  -  1)  ELSE  AS  =  FS 
130  INPUT  "Type  X  Range  XINDEX 

140  INPUT  "Type  Y  Range  YINDEX 

150  XINDEX  =  (XINDEX  /  8) 

160  YINDEX  =  (YINDEX  /  8) 

170  K1  =  XINDEX  *  YINDEX 
180  HS  =  AS  +  ".rec" 

190  OPEN  FS  FOR  BINARY  AS  *1 
200  OPEN  HS  FOR  OUTPUT  AS  #2 

250  GOSUB  820  'Set  up  C  matrix 

280  REM 

290  FOR  J  =  1  TO  YINDEX 
300  PRINT  J  •  8 
310  FOR  Y  =  1  TO  8 
320  FOR  1  =  1  TO  XINDEX 
330  FOR  X  =  1  TO  8 
340  AS  =  INPUTS (1,  1) 

350  DATAld,  1,  Y,  X)  =  ASC(AS)  -  128 
360  NEXT  X 
370  NEXT  I 
380  NEXT  Y 

390  GOSUB  550  'Perform  Inverse  Cosine 

400  REM  'Transform 

410  FOR  X  =  1  TO  8 

420  FOR  I  =  1  TO  XINDEX 

430  FOR  Y  =  1  TO  8 

440  K  =  CINT(DATA1 (I,  1,  X,  Y) ) 

450  IF  K  >  127  THEN  K  =  127 
460  IF  K  <  -128  THEN  K  =  -128 
470  PRINT  #2,  CHRS(K  +  128); 

480  NEXT 
490  NEXT 
500  NEXT 
510  REM 
520  NEXT 

530  CLOSE  #1:  CLOSE  #2 
540  END 
550  REM 
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560  REM 
570  REM 

580  FOR  I  =  1  TO  XINDEX 
590  FOR  L  =  1  TO  8 
600  TEMPI  =  0 
610  FOR  M  =  1  TO  8 
620  FOR  N  =  1  TO  8 

630  TEMPI  =  TEMPI  +  DATAld,  1,  M,  N)  *  C<H,  L) 

640  NEXT 

650  TEMP(M,  L)  =  TEMPI 
660  TEMPI  =  0 
670  NEXT 
680  NEXT 

690  FOR  L  =  1  TO  8 
700  TEMPI  =  0 
710  FOR  M  =  1  TO  8 
720  FOR  N  =  1  TO  8 

730  TEMPI  =  TEMPI  +  C(N,  M)  *  TEMP (N,  L) 

740  NEXT  N 

750  DATAld,  1,  M,  L)  =  TEMPI  *  8 

760  TEMPI  =  0 

770  NEXT 

780  NEXT 

790  REM 

800  NEXT 

810  RETURN 

820  REM 

830  REM  Generate  Cosine  Transform  Matrix 
840  FOR  K  =  0  TO  7 
850  FOR  N  =  0  TO  7 

860  IF  K  =  0  THEN  C (K  +  1,  N  +  1)  =  1  /  SQR(8) 

870  IF  K  <>  0  THEN  C (K  +  1,  N  +  1)  =  SQR(.25)  *  COS(3. 14159  *  (2 

*  N  +  1)  *  K  /  16) 

880  NEXT  N 
890  NEXT  K 
900  RETURN 
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10  KEY  OFF 

20  INPUT  "Type  Data  File  for  IFS  codes  IFS$ 

30  OPEN  IFS$  FOR  INPUT  AS  #1 
40  I  =  1 

50  INPUT  #1,  A(I),  B(I),  C(I),  D(I),  E(I),  F(I),  P(I) 

60  P(I)  =  P<I)  +  P(I  -  1) 

70  IF  EOF(l)  THEN  GOTO  100 

80  I  =  I  +  1 

90  GOTO  50 

100  SCREEN  9:  CLASS 

110  CLOSE  #1 

120  MINX  =  10000:  MAXX  =  -10000:  MINY  =  10000:  MAXY  =  -10000 
130  COLOR  10 

140  REM  WINDOW  (-3,  -3)-(5,  15) 

150  X  =  0:  Y  =  0:  NUMITS  =  1000! 

160  FOR  N  =  1  TO  NUMITS 
170  K1  =  INT(RND  *  100) 

180  FOR  J  =  1  TO  I 

190  IF  (K1  >=  P(J  -  1)  *  100)  AND  (K1  <  P ( J)  *  100)  THEN  K  =  J 
200  NEXT  J 

210  NEWX  =  A(K)  *  X  +  B(K)  »  Y  +  E  (K) 

220  NEWY  =  C(K)  *  X  +  D(K)  *  Y  +  F(K) 

230  X  =  NEWX 
240  Y  =  NEWY 
250  OLDK  =  K 

260  IF  (N  >  10)  AND  (NUMITS  <  10000)  THEN  GOSUB  330 

270  IF  (N  >  10)  AND  (NUMITS  >  10000)  THEN  PSET  (X,  Y) 

280  NEXT 

290  IF  NUMITS  >  10000  THEN  GOTO  380 
300  X  =  0:  Y  =  0:  NUMITS  =  10000000# 

310  WINDOW  (MINX  -  .5  •  ABS(MINX),  MINY  -  .5  *  ABS (MINY) )- (MAXX  + 
.5  *  ABS  (MAXX),  MAXY  +  .5  *  ABS  (MAXY)):  CLASS  :  GOTO  160 
320  END 

330  IF  X  >  MAXX  THEN  MAXX  =  X 

340  IF  X  <  MINX  THEN  MINX  =  X 

350  IF  Y  >  MAXY  THEN  MAXY  =  Y 

360  IF  Y  <  MINY  THEN  MINY  =  Y 

370  RETIJRN 

380  A$  -  INKEYS 

390  IF  AS  =  ""  THEN  GOTO  380 

400  END 


IFS  Codes  for  a  Square 


A 

B 

C 

D 

E 

F 

P 

5  , 

0  , 

0  , 

.5  , 

1  , 

1  , 

.25 

5  , 

0  , 

0  , 

.5  , 

50  , 

1  , 

.25 

5  , 

0  , 

0  , 

.5  , 

1  , 

50  , 

.25 

5  , 

0  , 

0  , 

.5  , 

50  , 

50  , 

.25 
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Appendix  E 

Source  Code  for  “Image  Lab”  Software 


LAB . BAT 


cl  /c  /DM5  /AL  /I\cscape\include  labs.c 
cl  /c  /DM5  /AL  /I\cscape\include  labx.c 
cl  /c  /DM5  /AL  /I\cscape\include  laby.c 
cl  /c  /DM5  /AL  /I\cscape\include  labz.c 
link  /stack; 44000  /SE:300  labs+labx+laby 
+labz, , , \global\global+\standard\standard 
+\cscape\lib\mllcscap+\cscape\lib\mllowl; 
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LABS . C 


finclude  <stdio.h> 

♦include  <string.h> 

♦include  <math.h> 

♦include  <stdlib.h> 

♦include  <dos.h> 

♦include  <stdarg.h> 

♦include  <ctype.h> 

♦include  <fcntl.h> 

♦include  <sys\types .h> 

♦include  <sys\stat.h> 

♦include  <io.h> 

♦include  "errhand.h" 

♦include  "bitio.h" 

♦include  "\global\globdef -h" 

♦include  "\cscape\include\cscape.h" 

♦include  "\cscape\include\f ramer .h" 

extern  void  doinvl6(int  ixindex,  int  datal6 [32f [16] [161 ,  float  cl6[16I [16] ) ; 

extern  void  dofornil6  (int  ixindex,  int  datal6(321  (16)  (16) ,  float  templ6[161  [16] , 

float  Cl6[161  [16] ) ; 

extern  void  lossyl6(int  flagl,  int  datall); 

extern  void  doinv32(int  ixindex,  int  data32[51 [32] [32] ,  float  c32  [32] (32) ) ; 

extern  void  doform32(int  ixindex,  int  data32 [5] (32J (32) ,  float  c32(32]  [32] ) ; 

extern  void  lossy32(int  flagl,  int  datall); 

extern  void  analyze<int  flag2); 

int  vga_code, graphics, width, height, mode, modes [5] , choice, 

read_bank, write_bank, top,  stat_buf [4] , radius, ix,iy, flagl 6=0, 
colorflag=2; 

char  instringl [80] ,  message_string (81 ] , string [80] ; 

unsigned  stringpall [768] ; 

sed_type  frame; 

/*»»»*»»♦»»*»***»*****»»•*«*»*»»*«»»•»♦****•»»*»»»»»»»»*♦*»♦•♦***»♦•**»♦*♦/ 
/.*♦♦.**»»♦***♦.»*.♦** »*START  adaptive  HUFFMAN****************************/ 
char  *CompressionNamel  =  "Adaptive  Huffman  coding,  with  escape  codes"; 
char  *Usagel  =  "infile  outfile  [  -d  ]"; 

♦define  END_OF_STREAM  256 

♦define  ESCAPE  257 

♦define  SYMBOL_COONT  258 

♦define  NODE_TABLE_COUNT  (  (  SYMBOL_COUNT  *  2  )  -  1  ) 

♦define  ROOT_NODE  0 

♦define  MAX_WEIGHT  0x8000 

♦define  TRUE  1 

♦define  FALSE  0 
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typedef  struct  tree  { 

int  leaf[  SYMBOL_COUNT  ]; 
int  next_f ree_node; 

St  ruct  node  { 

unsigned  int  weight; 
int  parent; 
int  child_is_leaf ; 
int  child; 

)  nodes (  NODE_TABLE_COUNT  ]  ; 

(  TREE; 

TREE  Tree; 

♦ifdef  _STDC_ 

void  CompressFilel (  FILE  ‘input,  BIT_FILE  ‘output  ); 
void  ExpandFilel (  BIT_FILE  ‘input,  FILE  ‘output); 
void  InitializeTree (  TREE  ‘tree  ); 

void  EncodeSymbol <  TREE  ‘tree,  unsigned  int  c,  BIT_FILE  ‘output  ); 

int  DecodeSymbol (  TREE  ‘tree,  BIT_FILE  ‘input  ) ; 

void  UpdateModel (  TREE  ‘tree,  int  c  ) ; 

void  RebuildTree (  TREE  ‘tree  ) ; 

void  swap_nodes (  TREE  ‘tree,  int  i,  int  j  ); 

void  add_new_node  (  TREE  ‘tree,  int  c  )  ,- 

void  PrintTree(  TREE  ‘tree  ); 

void  print_codes (  TREE  ‘tree  ) ; 

void  print_code(  TREE  ‘tree,  int  c  ); 

void  calculate_rows (  TREE  ‘tree,  int  node,  int  level  ) ; 

int  calculate_colunms (  TREE  ‘tree,  int  node,  int  starting_guess  ); 

int  f ind_minimum_oolumn (  TREE  ‘tree,  int  node,  int  max_row  ); 

void  rescale_oolumns (  int  factor  ) ; 

void  print_tree(  TREE  ‘tree,  int  first_row,  int  last_row  ); 

void  print_connecting_lines (  TREE  ‘tree,  int  row  ); 

void  print_node_numbers (  int  row  ); 

void  print_weights (  TREE  ‘tree,  int  row  ); 

void  print_synibol  (  TREE  ‘tree,  int  row  ); 

♦else 

void  CompressFilel () ; 

void  ExpandFilel () ; 

void  InitializeTree 0 ; 

void  EncodeSymbol () ; 

int  DecodeSymbol ( ) ; 

void  UpdateModel ( ) ; 

void  RebuildTree 0 ; 

void  swap_nodes ( ) ; 

void  add_new_node ( ) ; 

void  PrintTreeO; 

void  print_codes  ()  ; 

void  print_code() ; 

void  calculate_rows 0 ; 

int  calculate_columns ( ) ; 

void  rescale_columns ( ) ; 

void  print_tree(); 

void  print_connecting_lines 0 ; 
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void  print_node_numbers ( ) ; 
void  prinv_weights 0 ; 
void  print_symbol ( ) ; 

♦endif 

void  CotnpressFilel  (  input,  output  ) 

FILE  *input; 

BIT_FILE  ‘output; 

( 

int  c; 

InitializeTree  (  STree  ) ; 

while  (  (  c  =  getc  (  input  )  )  !=■  EOF  )  { 

EncodeSyrnbol  (  STree,  c,  output  )  ; 

UpdateModel<  STree,  c  ) ; 

) 

EncodeSyrnbol (  STree,  END_OF_STREAM,  output  ); 

} 

void  ExpandFilel (  input,  output  ) 

BIT_FILE  ‘input; 

FILE  ‘output; 

{ 

int  c; 

InitializeTree  (  STree  ) ; 

while  (  (  c  =  DecodeSytnbol (  STree,  input  )  )  !=  END_OF_STREAM  )  { 
if  (  putc(  c,  output  )  ==  EOF  ) 

fatal_error (  "Error  writing  character"  ) ; 

OpdateModeK  STree,  c  ); 

1 

} 

void  InitializeTree (  tree  ) 

TREE  ‘tree; 

( 

int  i; 


tree->nodes [ 

ROOT_NODE 

]  . 

■child 

= 

ROOT_NODE  + 

1; 

tree->nodes [ 

ROOT_NODE 

1. 

.child_i3_leaf 

- 

FALSE; 

tree->nodes ( 

ROOT_NODE 

1. 

■weight 

= 

2; 

tree->nodes [ 

ROOT_NODE 

I. 

■parent 

= 

-1; 

tree->nodes ( 

ROOT_NODE 

+ 

1 

] .child 

= 

END_OF_STREAM; 

tree->nodes [ 

ROOT_NODE 

+ 

1 

1 .child_is_leaf 

3 

TRUE; 

tree->nodes [ 

ROOT_NODE 

+ 

1 

1 .weight 

= 

1; 

tree->nodes [ 

ROOT_NODE 

+ 

1 

1 .parent 

= 

ROOT_NODE; 

tree->leaf(  END_OF_STREAM  ] 

- 

ROOT_NODE  + 

1; 

tree->nodes [ 

ROOT_NODE 

+ 

2 

) .child 

ESCAPE; 

tree->nodes( 

ROOT_NODE 

+ 

2 

) .child_is_leaf 

= 

TRUE; 

tree->nodes ( 

ROOT_NODE 

+ 

2 

1 .weight 

- 

1; 

tree->nodes ( 

ROOT_NODE 

+ 

2 

1 .parent 

= 

ROOT_NODE; 
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tree->leaf[  ESCAPE  ) 
tree->next_free_node 

for  (  i  =  0  ;  i  <  END_OF_STREAM  ;  i++  ) 
tree->leaf[  i  ]  =  -1; 

} 

void  EncodeSymbol (  tree,  c,  output  ) 

TREE  *tree; 
unsigned  int  c; 

BIT_FILE  ‘output; 

( 

unsigned  long  code; 
unsigned  long  current_bit; 
int  code_size; 
int  current_node; 

code  =  0; 
current_bit  =  1; 
code_size  =0; 

current_node  =  tree->leaf(  c  1; 
if  (  current_node  ==  -1  ) 

current_node  =  tree->leaf[  ESCAPE  1; 
while  (  current_node  !=  ROOT_NODE  )  { 
if  (  (  current_node  S  1  )  ==  0  ) 
code  1=  current_bit; 
current_bit  «”  1; 
code_size++; 

current_node  =  tree->nodes(  current_node  ) .parent; 

>; 

OutputBits (  output,  code,  code_size  ); 
if  (  tree->leaf(  c  )  ==  -1  )  { 

OutputBits (  output,  (unsigned  long)  c,  8  ) ; 
add_new_node (  tree,  c  ) ; 

) 

) 

int  DecodeSymboK  tree,  input  ) 

TREE  ‘tree; 

BIT_FILE  ‘input; 

{ 

int  current_node; 
int  c; 

current_node  =  ROOT_NODE; 

while  (  !tree->nodes [  current_node  1 .child_is_leaf  )  { 
current_node  =  tree->nodes [  current_node  ] .child; 
current_node  +=  InputBit(  input  ); 

) 

c  “  tree->nodes[  current_node  ) .child; 
if  (  c  ==  ESCAPE  )  ( 

c  =  (int)  InputBits(  input,  8  ); 


=  ROOT_NODE  +  2; 
=  ROOT  NODE  +  3; 
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acld_new_nocle  (  t  ree ,  c  )  ; 

) 

return  (  c  ) ; 

) 

void  UpdateModel (  tree,  c  ) 

TREE  *tree; 
int  c; 

( 

int  current_node; 
int  new_node; 

if  (  tree->nodes[  ROOT_NODEI .weight  ==  MAX_WEIGHT  ) 

RebuildTree(  tree  )  ; 
current_node  =  tree->leaf[  c  1  ; 
while  (  currert_node  ! =  -1  )  { 

tree->nodes[  current_node  ] .weight ++; 

for  (  new_node  =  current_node  ;  new_node  >  ROOT_NODE  ;  new_node-  ) 
if  (  tree->nodes(  new_node  -  1  1 .weight 
tree->nodes[  current_node  1. weight  ) 
break; 

if  (  current_node  !=  new_node  )  ( 

swap_nodes (  tree,  current_node,  new_node  ) ; 
current_node  =  new_node; 

) 

current_node  =  tree->nodes(  current_node  ) .parent; 

) 

) 

void  RebuildTree(  tree  ) 

TREE  *tree; 

{ 

int  i; 
int  j; 
int  k; 

unsigned  int  weight; 
print f  (  "R"  ); 

j  =  tree->ne.'it_free_node  -  1; 

for  (  i  =  j  ;  i  >=  ROOT_NODE  ;  i-  )  ( 

if  (  tree->nodes(  i  ) . child_is_leaf  )  { 
tree->nodes[  j  ]  =  tree->nodes[  i  ); 

tree->nodes(  j  ) .weight  =  (  tree->nodes[  j  J. weight  +  1  )  /  2; 

3-; 

) 

) 

for  (  i  =  tree->ney.t_f ree_node  -  2  ;  j  >=  ROOT_NODE  ;  i  -=  2,  j-  )  ( 
k  =  i  +  1; 

tree->nodesC  j  ) .weight  -  tree->nodes[  i  J .weight  + 

tree->nodes[  k  1 .weight; 
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weight  =  tree->nodes (  j  ] .weight; 
tree->nodes[  j  ] .child_is_leaf  =  FALSE; 

for  (  k  =  j  +  1  ;  weight  <  tree->nodes[  k  J. weight  ;  k++  ) 
k-; 

memmoveC  Stree->nodes [  j  ],  Stree->nodes(  j  +  1  ), 

(  k  -  j  )  *  sizeof(  struct  node  )  ); 
tree->nodes[  k  ] .weight  =  weight; 
tree->nodes[  k  ] .child  =  i; 
tree->nodes[  k  ] .child_is_leaf  =  FALSE; 

) 

for  (  i  =  tree->next_f ree_node  -  1  ;  i  >=  ROOT_NODE  ;  i—  )  { 
if  (  tree->nodes[  i  ] . child_is_leaf  )  { 
k  =  tree->nodes[  i  ] .child; 
tree->leaf[  k  ]  =  i; 

)  else  { 

k  =  tree->nodes[  i  1  .child; 

tree->nodes[  k  ] .parent  =  tree-nodes[  k  +  1  ]. parent  = 

) 

} 

) 


void  swap_nodes(  tree,  i,  j  ) 

TREE  *tree; 
int  i; 
int  j; 

{ 

struct  node  temp; 

if  (  tree->nodes[  i  ] . child_is_leaf  ) 

tree->leaf[  tree->nodes(  i  ] .child  )  =  j; 
else  { 

tree->nodes[  tree->nodes(  i  ]. child  I. parent  =  j; 
tree->nodes[  tree->nodes(  i  ] .child  +  1  J. parent  =  j; 

) 

if  (  tree->nodes[  j  1 . child_is_leaf  ) 

tree->leaf[  tree->nodes[  j  1 .child  )  =  i; 
else  { 

tree->nodes[  tree->nodes[  j  1 .child  ] .parent  =  i; 
tree->nodes[  tree->nodes[  j  ). child  +  1  ). parent  =  i; 

) 

temp  =  tree->nodes [  i  ] ; 
tree->nodes(  i  1  ”  tree->nodes(  j  ]; 
tree->nodes[  i  ) .parent  =  temp. parent; 
temp. parent  =  tree->nodes[  j  ) .parent; 
tree->nodes(  j  )  =  temp; 

) 

void  add_new_node (  tree,  c  ) 

TREE  ‘tree; 
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int  c; 

{ 

int  lightest_no<le; 

int  new_node; 

int  zero_weight_node; 

lightest_node  =  tree->next_f ree_node  -  1; 
new_node  =  tree->ney.t_free_node; 
zero_weight_node  =  tree->next_free_node  +  1; 
tree->next_ftee_node  +=•  2; 

tree->nodes[  new_node  J  -  ttee->nodes[  lightest_node  1; 
tree->nodes[  new_node  ) .parent  =  lightest_node; 
tree->leaft  tree->nodes[  new_node  ]  .child  J  =  nevr_node; 
tree->nodes[  lightest_node  ] .child  =  new_node; 

tree->nodes(  llghtest_node  J  .child__is_leaf  =  FALSE; 
tree->nodes[  zero_weight_node  ]. child  =  c; 

tree->nodes[  zero_weight_node  ] .child_i3_leaf  =  TRUE; 

tree->nodes[  zero_weight_node  ] .weight  »  0; 

tree->nodes[  zero_weight_node  ] .parent  -  lightest_node; 

tree->leaf(  c  )  =  .tro_weight_node; 

) 


struct  row  { 

int  first_tnember; 
int  count; 

)  rowsC  32  ]; 


struct  location  { 
int  row; 

int  next_metnber; 
int  column; 

)  positions [  NODE_TABLE_COUNT  ]; 

void  PrintTree (  tree  ) 

TREE  *tree; 

{ 

int  i; 
int  min; 

print_codes(  tree  ); 
for  {  i  -  0  ;  i  <  32  ;  i++  )  { 
rows(  i  ) .count  =  0; 
rowst  i  1 . first_member  =  -1; 

> 

calculate_rows (  tree,  ROOT_NODE,  0  ) ; 

calculate_columns (  tree,  ROOT_NODE,  0  ); 

min  »  find_minimum_column (  tree,  ROOT_NODE,  31  ); 

rescale_columns (  min  ) ; 

print_tree(  tree,  0,  31  ); 
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void  print_codes (  tree  ) 

TREE  ‘tree; 

{ 

int  i; 

printf(  "\n"  ); 

for  (  i  =  0  ;  i  <  SYMBOL_COUNT  ;  i++  ) 
if  (  tree->leaf[  i  1  !=  -1  )  { 
if  (  isprint (  i  )  ) 

printf(  "%5c:  ",  i  ); 

else 

printf(  "<%3d>:  ",  i  ); 

printf  (  "%5u",  tree->nodes[  tree->leaf[  i  1  ] .weight  ) 
printf(  "  "  ) ; 
print_code (  tree,  i  ) ; 
printf  (  "\n"  ) ; 

) 

) 


void  print_code(  tree,  c  ) 

TREE  ‘tree; 
int  c; 

{ 

unsigned  long  code; 
unsigned  long  current_bit; 
int  code_size; 
int  current_node; 
int  i; 

code  =0; 
current_bit  =  1; 
code_size  =0; 

current_node  =■  tree->leaf[  c  1; 
while  (  current_node  !=  RCX)T_NODE  )  { 
if  (  current_node  &  1  ) 
code  1=  current_bit; 
current_bit  «=  1; 
code_3ize++; 

current_node  =  tree->nodes (  current_node  I .pa rent; 

}; 

for  (  i  =  0  ;  i  <  code_size  ;  i++  )  { 
current_bit  »=  1; 
if  (  code  &  current_bit  ) 
putc(  '1',  stdout  ); 

else 

putc(  'O’,  stdout  ); 

) 

} 
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void  calculate_rows (  tree,  node,  level  ) 

TREE  ‘tree; 
int  node; 
int  level; 

( 

if  (  rows[  level  1 . f irst_member  ==  -1  )  { 
rows[  level  J . first_member  =  node; 
rows (  level  1. count  =  0; 
positions!  node  ] . row  =  level; 
positions!  node  ) . next_member  =  -1; 

}  else  ! 

positions!  node  ] . row  =  level; 

positions!  node  1 .next_member  =  rows!  level  ) . first_member; 
rows!  level  1 . first_member  =  node; 
rows  I  level  ].count++; 

) 

if  (  ! tree->nodes !  node  ] . child_is_leaf  )  ! 

calculate_rows (  tree,  tree->nodes!  node  1 .child,  level  +  1  ); 
calculate_rows (  tree,  tree->nodes!  node  ]. child  +  1,  level  +  1  ); 

} 

) 

int  calculate_columns (  tree,  node,  starting_guess  ) 

TREE  *tree; 
int  node; 

int  starting_gjess; 

! 

int  next_node; 
int  right_side; 
int  left_side; 

next_node  =  positions!  node  1  . next_raen:iber; 
if  (  next_node  !=  -1  )  ! 

if  (  positions!  ne.xt_node  ]  .column  <  (  starting_guess  +  4  )  ) 
starting_guess  =  positions!  next_node  I. column  -  4? 

) 

if  (  tree->nodes!  node  ] . child_is_leaf  )  ( 

positions!  node  ]. column  =  starting_guess; 
return!  starting_guess  ) ; 

) 

right_side  =  calculate_columns (  tree,  tree->nodes!  node  ). child, 
starting_guess  +  2  ) ; 

left_side  =  calculate_columns (  tree,  tree->nodes!  node  1 .child  +  1, 
right_side  -  4  ) ; 

starting_guess  =  (  right_side  +  left_side  )  /  2; 
positions!  node  ]. column  =  starting_guess; 
return!  starting_guess  ); 

) 

int  f ind_minimum_column !  tree,  node,  max_row  ) 

TREE  *tree; 
int  node; 


E10 


Appendix  E  Source  Code  for  "Image  Lab"  Software 


int  ma.x_row; 

j 

int  min_right; 
int  min_left; 

if  (  t ree->nodes (  node  ] .child_is_leaf  II  max_row  ==  0  ) 
return!  positions!  node  ). column 
max_tow— ; 

nin_tight  =  f ind_minimum_column (  tree,  tree->nodes(  node  1  .child  +  1, 
max_row  t  ;  ~ 

min_left  =  f ind_minimum_column (  tree,  free->nodes(  node  ]. child,  max_row  ) ; 
if  (  min_right  <  min_left  ) 
return!  min_right  )  ; 

else 

return!  min  left  ) ; 


••rid  rescale_columns !  factor  ) 
int  factor; 


int  i; 
int  node; 

for  !  1  =  0  -  i  <  30  ;  i-^-<-  >  ! 

if  !  rows(  i  1 . first_member  ==  -1  i 
break; 

node  =  ro^rfs  (  i  )  .  f  irst_n'.ember; 
do  ! 

positions!  node  l.column  -=  factor; 
node  =  positions!  node  )  .next _c’ember; 
I  while  I  node  1=  -1  ); 


•/Old  print_tree!  "Tree,  first_rfw,  last_rc^w  > 

7?EE  'tree; 
int  first_row; 
int  last_row; 

int  row; 

for  !  row  *=  first  row  ;  row  <=  last_rcw  ;  row-*--*-  )  ! 

if  !  rows!  row  ] . f irst_member  ==  -1  ) 
break; 

if  !  row  >  first_row  I 

print_connecting_lines !  tree,  row  ); 
print_node_nutnbers  !  row  I; 
print_weights !  tree,  row  ); 
print_s-ymbol !  tree,  row  ); 
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:r.def  ALPHANUMERIC 
:e:ine  LEFT_END  21S 
;eiine  RIGHT_EHD  191 
erine  CENTER  193 
>erine  LINE  196 

erine  VERTICAL  1^9 
Ise 

.efine  LEFT_END 
erine  RIGHT_END 
efine  CENTER 
efine  LINE 
efine  VERTICAL  '  ! ' 
naif 


la  print_connecting_lines (  tree,  row  ) 
EE  *tree; 


row; 


rnt  current_col; 
rnt  start_rol; 
rnt  encl_coi; 
rnt  center_col; 
rnt  node; 
rnt  parent ; 

:urrent_col  =  0; 

node  =  rows(  row  ),  first  _irember; 
while  (  node  !=  -i  )  { 

start_coi  =  positions[  node  [.column  +  i; 
node  =  positions  [  node  [  .  neKt_rr.embet; 

•.■nd_col  =  positicnsf  roae  [.column  +  2; 
parent  =  tree->nodes(  node  [.parent; 

''enter_col  =  positionsi  parent  [.column; 
center_col  +=  2; 
for  (  ;  current_coi  <  st3rt_col  ;  current_coiw 
putc (  '  ' ,  stdout  I ; 
putcl  LEFT_END,  stdout  ); 

for  (  current_col++  ;  current_col  <  center_col 
putc (  LINE,  stdout  ); 
putci  CENTER,  stdout  ); 

for  (  current  colnw;  current_col  <  end_cor  ; 

putc(  LINE,  stdout  ); 
nijtcl  RIGHT_END,  stdout  ); 

'urrent_~ol++; 

node  =  positions(  node  [  .ne.xt_member; 

r  rintf  (  '  n"  )  ; 


ri  print_node_numbers (  row  ) 


) 


;  current  -sir*  ) 


;rrent  col+r  ) 
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int  row; 

{ 

int  current_col; 

int  node; 

int  print_col; 

cuLrent_col  ^  0; 

node  =  rows[  row  ) . f irst_member; 
while  (  node  !=  -1  )  ( 

print_col  =  poEitions[  node  ]. column  +  1; 
for  (  ;  current_col  <  print_col  ;  current_col++  ) 
putc (  '  ' ,  stdout  ) ; 
printf  (  "%03d",  node  ); 
current_col  +=  3; 

node  =  positions [  node  ] .next_member; 

) 

printf  (  "\n"  ) ; 

) 

void  print_weights (  tree,  row  ) 

TREE  ‘tree; 
int  row; 

{ 

int  current_col; 
int  print_col; 
int  node; 
int  print_size; 
int  ney.t_col; 
char  buffer!  10  I; 

current_col  =  0; 

node  =  rows!  row  ) . first_member; 
while  (  node  !=  -1  )  ! 

print_col  =  positions!  node  ] .column  +  1; 
sprintf!  buffer,  "%u",  tree->nodesI  node  1 .weight  ); 
if  (  strlen!  buffer  )  <  3  ) 

sprintf!  buffer,  "%03u",  tree->nodes(  node  ). weight  ); 
print_size  =  3; 
if  (  strlen!  buffer  )  >  3  )  ! 

if  I  positions!  node  )  .ne.xt_member  ==  -1  ) 
print_size  =  strlen!  buffer  ); 
else  ! 

ne.xt_col  =  positions!  positions!  node  ]  .ne.xt_member  )  .column ; 
if  !  !  ne;':t_col  -  print_col  )  >  6  ) 
print_size  =  strlen!  buffer  ); 
else  ! 

strcpy!  buffer,  ” — "  ); 
print_size  =  3; 

) 


) 
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for  (  ;  current_col  <  print_col  ;  current_col++  ) 
putc (  '  ' ,  stdout  ) ; 
printf  (  buffer  ) ; 
current_col  +=  print_size; 
node  =  positions [  node  1 .next_member; 

} 

printf (  "\n"  ) ; 

} 


void  print_symbol (  tree,  row  ) 

TREE  *tree; 
int  row; 

( 

int  current_col; 
int  print_col; 
int  node; 

current_col  =  0; 

node  =  rowst  row  ] . first_member; 
while  (  node  ! =  -1  )  ( 

if  (  tree->nodes(  node  ] .child_is_leaf  ) 
break; 

node  =  positions!  node  1 .next_member; 

) 

if  (  node  ==  -1  ) 
return; 

node  =  rows!  row  ) . first_member; 
while  (  node  !=  -1  )  ( 

print_col  =  positions!  node  ) .column  +  1; 
for  (  ;  current_col  <  print_col  ;  current_col++  ) 
putc (  '  ' ,  stdout  ) ; 

if  (  tree->nodes!  node  1 .child_is_leaf  )  ( 

if  <  isprint!  tree'>nodesI  node  J .child  )  > 

printf!  "'%c"',  tree-nodes  I  node  1  .child  ); 
else  if  (  tree->nodes!  node  ]. child  ==  END_OF_STREAM  ) 
printf  (  "EOF"  ) ; 

else  if  (  tree->nodes!  node  ). child  ==  ESCAPE  ) 
printf  (  "ESC"  ) ; 

else 

printf!  "%02XH",  tree->nodesC  node  J. child  ); 

}  else 

printf!  "  ^ic  ",  VERTICAL  ); 
current_col  +=  3; 

node  =  positions!  node  J .next_membec; 

) 

printf  !  "\n"  ) ; 

) 

**END  ADAPTIVE  HUFFMAN******'********* *»*»**♦ *****/ 
/.*»♦♦♦.»**♦♦****»•«♦•♦*♦•»*♦•»»***♦*»*♦♦»♦*♦**♦***♦***»»*»•*»***♦*♦»*♦***/ 
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Z*************************************************************************/ 

/..*»»»..**.***»»**»*.. .*****StaRT  HUFFMAN**»****»»**»**»*******»*********/ 
typedef  struct  tree_node  { 
unsigned  int  count; 
unsigned  int  saved_count; 
int  child_0; 
int  child_l; 

}  NODE; 

typedef  struct  code  { 
unsigned  int  code; 
int  code_bits; 

}  CODE; 

#ifdef  _ STDC _ 

void  count_bytes (  FILE  *input,  unsigned  long  *long_counts  ); 
void  scale_counts (  unsigned  long  ♦long_counts,  NODE  *nodes  ); 
int  build_tree(  NODE  ‘nodes  ); 
void  convert_tree_to_code (  NODE  ‘nodes, 

CODE  ‘codes, 

unsigned  int  code_so_far, 
int  bits, 
int  node  ) ; 

void  output_counts  (  BIT_FILE  ‘output,  NODE  ‘nodes  ); 
void  input_counts (  BIT_FILE  ‘input,  NODE  ‘nodes  ); 
void  print_model (  NODE  ‘nodes,  CODE  ‘codes  ); 

void  compress_data (  FILE  ‘input,  BIT_FILE  ‘output,  CODE  ‘codes  ); 
void  ey.pand_data(  BIT_FILE  ‘input,  FILE  ‘output,  NODE  ‘nodes, 
int  root_node  ) ; 
void  print_char(  int  c  ); 

#else  /‘  _ STDC _  ‘/ 

void  count_bytes () ; 

void  scale_counts 0 ; 

int  build_tree ( ) ; 

void  convert_tree_to_code ( )  ; 

void  output_counts ( ) ; 

void  input_counts ( ) ; 

void  print_model  ()  ; 

void  conipress_data  ( )  ; 

void  expand_data ( ) ; 

void  print_char ( ) ; 

♦endif  /‘  _ STDC _  */ 

char  *CompressionNaine2  =  "static  order  0  model  with  Huffman  coding"; 
char  ‘Usage2  = 

"infile  outfile  [-d] \n\nSpecifylng  -d  will  dump  the  modeling  data\n"; 

void  Coii5>ressFile2  (  input,  output  ) 

FILE  ‘input; 

BIT_FILE  ‘output; 

unsigned  long  ‘counts; 

NODE  ‘nodes; 
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CODE  * codes, • 
int  root_node; 

counts  =  (unsigned  long  *)  calloc(  256,  slzeof(  unsigned  long  )  ) ; 
if  (  counts  ==  NULL  ) 

fatal_error(  "Error  allocating  counts  array\n"  ); 
if  (  (  nodes  »  (NODE  *)  calloc  (  514,  sizeof(  NODE  >  )  )  ==  NULL  ) 
f atal_error (  "Error  allocating  nodes  arrayXn"  ) ; 
if  (  (  codes  =  (CODE  *)  calloc  (  257,  sizeof(  CODE  )  )  )  ==  NULL  ) 
f atal_error (  "Error  allocating  codes  arrayXn"  ) ; 
count_bytes(  input,  counts  ); 
scale_counts (  counts,  nodes  ) ; 
output_counts (  output,  nodes  ) ; 
root_node  =  build_tree(  nodes  }; 

convert_tree_to_code (  nodes,  codes,  0,  0,  root_node  ) ; 

compress_data (  input,  output,  codes  ); 

free(  (char  *)  counts  )  ,- 

free(  (char  *)  nodes  ); 

free(  (char  *)  codes  ) ; 

( 

void  ExpandFile2 (  input,  output  ) 

BIT_FILE  *input; 

FILE  ♦output; 

{ 

NODE  ‘nodes; 
int  root_node; 

if  (  (  nodes  =  (NODE  *)  calloc  (  514,  sizeof(  NODE  )  )  )  ==  NOLL  ) 
fatal_error(  "Error  allocating  nodes  arrayXn"  ); 
input_counts (  input,  nodes  ); 
toot_node  »  build_tree(  nodes  ); 
expand_data(  input,  output,  nodes,  root_node  ); 
free(  (char  *)  nodes  ); 

) 

void  output_counts (  output,  nodes  ) 

BIT_FILE  ‘output; 

NODE  ‘nodes; 

{ 

int  first; 
int  last; 
int  next; 
int  i; 

first  =  0; 

while  (  first  <  255  &&  nodes[  first  ]  .count  ”•«  0  ) 
first ++; 

for  (  ;  first  <  256  ;  first  =  next  )  { 
last  «  first  +  1; 
for  (  ;  ;  )  { 
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for  (  ;  last  >  256  ;  last++  ) 

if  (  nodes[  last  ] .count  ==  0  ) 
break; 

last-; 

for  (  next  =  last  +1;  next  <  256  ;  next++  ) 
if  (  nodes  [  ne.xt  ].  count  !=  0  ) 
break: 


if  (  ne.xt  >  255  ) 


break; 

if  (  (  next  - 

■  last  )  >  3  ) 

break; 

); 

if 

last  =  next; 

(  putc (  first. 

output->file  )  !=  first  ) 

fatal_error ( 

"Error  writing  byte  countsXn" 

if 

(  putc(  last. 

output->file  )  !=  last  ) 

fatal_error ( 

"Error  writing  byte  countsXn" 

for 

(  i  =  first  ; 

i  <=  last  ;  i++  )  { 

if  (  putc (  nodest  i  ] .count,  output->file  )  != 
(int)  nodes [  i  ). count  ) 
f atal_error (  "Error  writing  byte  counts\n"  ) ; 

) 

I 

if  (  putc(  0,  output->file  )  !=  0  ) 

fatal_error(  "Error  writing  byte  countsXn”  ); 


void  input_counts (  input,  nodes  ) 

BIT_FILE  *  input, • 

NODE  * nodes; 

{ 

int  first; 
int  last; 
int  i; 
int  c; 

for  (  i  =  0  ;  i  <  256  ;  i++  ) 
nodes [  i  ) .count  =0; 

if  (  (  first  =  getc(  input->file  )  )  ==  EOF  ) 

fatal_error(  "Error  reading  byte  countsXn"  ); 
if  (  (  last  =  getc<  input->file  )  )  ==  EOF  ) 

f atal_error (  "Error  reading  byte  countsXn"  ) ; 
for  (  ;  ;  )  { 

for  (  i  =  first  ;  i  <=  last  ;  i++  ) 

if  (  (  c  =  getc(  input->file  )  )  =“  EOF  ) 

fatal_error(  "Error  reading  byte  countsXn"  ) ; 

else 

nodest  i  ]  .count  =■  (unsigned  int)  c; 
if  (  (  first  =  getc(  input->file  )  )  ==  EOF  ) 

fatal_error(  "Error  reading  byte  countsXn"  ); 
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if  (  first  ==  0  ) 
break; 

if  (  (  last  =  getc(  input->file  )  )  ==  EOF  ) 

fatal_error(  "Error  reading  byte  countsXn"  ); 

nodes!  END_OF_STREAM  ] .count  =  1; 

1 

#ifndef  SEEK_SET 
♦define  SEEK_SET  0 
#endif 

void  count_bytes(  input,  counts  ) 

FILE  * input, • 
unsigned  long  ‘counts; 

( 

long  input_marker; 
int  c; 

input_inarket  =  ftell  (  input  )  ; 
while  (  (  c  =  getc(  input  ))  !=  EOF  ) 
counts!  c  ]++; 

fseek!  input,  input_marker,  SEEK_SET  ); 

) 

void  scale_counts (  counts,  nodes  ) 
unsigned  long  ‘counts; 

^ODE  ‘nodes; 

( 

unsigned  long  may._count; 
int  i; 

may._count  =  0; 

for  (  i  =  0  ;  i  <  256  ;  i++  ) 
if  (  counts!  i  ]  >  nia.'c_count  ) 
ma.x_count  =  counts  I  i  ) ; 
if  (  ma.'c_count  ==0)1 
counts!  01=1; 
may._count  =  1 ; 

) 

max_count  =  ma.x_count  /  255; 
max_count  =  max_count  +1; 
for  (  i  =  0  ;  i  <  256  ;  i++  )  1 

nodes  I  i  ) .count  =  (unsigned  int)  (  counts!  i  ]  /  max_count  ); 
if  1  nodes!  i  1  .count  ==  0  4S  counts!  i  )  !=  0  ) 
nodes!  i  1 .count  =  1; 

} 

nodes!  END_OF_STREAM  1  .count  =  1; 

) 
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int  builcl_tree  (  nodes  ) 
NODE  ‘nodes; 

{ 

int  next_free; 
int  i; 
int  min_l; 
int  min  2; 


) 


nodesC  513  ] .count  =  Oxffff; 

for  (  ney.t_free  =  END_OF_STREAM  +  1  ;  ;  next_free++  )  { 
min_l  =  513; 
rain_2  =  513; 

for  (  i  =  0  ;  i  <  next_free  ;  i++  ) 
if  (  nodes (  i  ] .count  !=  0  )  { 

if  (  nodes [  i  ] .count  <  nodes t  min_l  ) .count  )  ( 
min_2  =  min_l; 
min_l  =  i; 

}  else  if  (  nodes!  i  ] .count  <  nodes!  min_2  ). count  ) 
min  2  =  i; 


if  (  min  2  ==  513  ) 


break; 

nodes!  next_free  ] .count  = 

nodes !  min_l  I . saved_count 
nodes!  min_l  ] .count  *0; 
nodes !  min_2  ] . saved_count 
nodes!  min_2  1 .count  =  0; 
nodes!  next_free  ] .child_0 
nodes!  next_free  ] .child_l 


nodes !  min_^l  )  .  count 
+  nodes!  min_2  ). count; 

=  nodes  I  min_l  }. count; 

=  nodes!  min_2  ) .count; 

=  min_l; 

=  min  2; 


next_f ree-; 

nodes!  next_free  ] .saved_count  =  nodes!  next_free  ). count; 
return!  next  free  ); 


void  convert_tree_to_code (  nodes,  codes,  code_so_far,  bits,  node  > 
NODE  ‘nodes; 

CODE  ‘codes; 

unsigned  int  code_so_far; 
int  bits; 
int  node; 

! 

if  (  node  <=  END_OF_STREAM  )  ! 

codes!  node  ] .code  =  code_so_far; 
codes!  node  ) .code_bits  =  bits; 
return; 


code_so_far  «=  1; 
bits++; 
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convert_tree_to_code (  nodes,  codes,  code_so_far,  bits, 
nodes [  node  ] .child_0  ); 

convert_tree_to_code (  nodes,  codes,  code_so_far  I  1, 
bits,  nodes [  node  ].child_l  ); 

> 

void  print_model (  nodes,  codes  ) 

NODE  * nodes ; 

CODE  ‘codes; 

( 

int  i; 

for  (  i  =  0  ;  i  <  513  ;  i++  )  { 

if  (  nodes [  i  ] . saved_count  0  )  { 
printf  (  "node="  ) ; 
print_char  (  i  ) ; 

printf <  "  count=%3d",  nodes [  i  ] . saved_count  ); 
printf (  "  child_0="  ) ; 
print_char(  nodes [  i  ] .child_0  ); 
printf (  "  child_l="  ) ; 
print_char<  nodes [  i  ) .child_l  ); 
if  (  codes  &&  i  <=  END_OF_STREAM  )  { 
print f(  "  Huffman  code="  ); 

FilePrintBinary (  stdout,  codes!  i  ) .code,  codes (  i  ] .cod6_bits  ); 

) 

printf!  "\n"  ) ; 

) 

) 

) 

void  print_char (  c  ) 
int  c; 

{ 

if  (  c  >=  0.x20  &&  c  127  ) 
printf!  "'%c'",  c  ) ; 

else 

printf!  ”%3d",  c  ) ; 

) 

void  compress_data !  input,  output,  codes  ) 

FILE  ‘input; 

BIT_FILE  ‘output; 

CODE  ‘codes; 

! 

int  c; 


while  !  !  c  =  getc!  input  )  )  !=  EOF  ) 

OutputBits!  output,  !unsigned  long)  codes!  c  ) .code, 
codes!  c  1 .code_bits  ); 

OutputBits!  output,  !unsigned  long)  codes!  END_OF_SrREAM  ] .code, 
codes !  END  OF  STREAM  ] . code  bits  ) ; 
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void  expand_data(  input,  output,  nodes,  root_node  ) 

BIT_FILE  ‘input; 

FILE  ‘output; 

NODE  ‘nodes; 
int  root_node; 

( 

int  node; 

for  (  ;  ;  )  { 

node  =  root_node; 
do  ( 

if  (  InputBit(  input  )  ) 

node  =  nodes (  node  1 .child_l; 

else 

node  =  nodes [  node  l.child_0; 

)  while  (  node  >  END_OF_STREAM  ); 
if  (  node  ==  END_OF_STREAM  ) 
break; 

if  (  (  putc(  node,  output  )  )  !=  node  ) 

fatal_error{  "Error  trying  to  write  expanded  byte  to  output"  ); 

) 

) 

/*********.**»».»**»**, hUFFMAN‘““““““““““““““““/ 
/***********************★******«**********■***********************★******★*/ 

/«****  ******************************************************  tk*************/ 

/***** aRITHMETIC““““““‘““““““““/ 
typedef  struct  ( 

unsigned  short  int  low_count; 
unsigned  short  int  high_count; 
unsigned  short  int  scale; 

}  SYMBOL; 

#ifdef  _ STDC _ 

void  build_model (  FILE  ‘input,  FILE  ‘output  ); 

void  scale_counts3 (  unsigned  long  counts C),  unsigned  char  scaled_counts f ]  ); 

void  build_totals (  unsigned  char  scaled_counts ( ]  ); 

void  count_bytes3 (  FILE  ‘input,  unsigned  long  counts!)  ); 

void  output_counts3 (  FILE  ‘output,  unsigned  chat  scaled_counts [ )  ); 

void  input_counts3 (  FILE  ‘stream  ); 

void  convert_int_to_symbol (  int  symbol,  SYMBOL  ‘s  ); 

void  get_symbol_scale(  SYMBOL  ‘s  ); 

int  convert_symbol_to_int (  int  count,  SYMBOL  ‘s  ) ; 

void  initialize_arithmetic_encoder (  void  ) ; 

void  encode_symbol (  BIT_FILE  ‘stream,  SYMBOL  ‘s  ); 

void  flush_arithmetic_encoder (  BIT_FILE  ‘stream  ); 

short  int  get_current_count (  SYMBOL  ‘s  )  ; 

void  initialize_arithmetic_decoder (  BIT_FILE  ‘stream  ); 

void  remove_symbol_from_stream(  BIT_FILE  ‘stream,  SYMBOL  ‘s  ); 

telse 

void  build  model!); 
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void  scale_counts3 () ; 

void  build_totals ( ) ; 

void  count_bytes3 ( ) ; 

void  output_counts3 ( ) ; 

void  input_counts3 ( ) ; 

void  convert_int_to_symbol () ; 

void  get_symbol_scale ( ) ; 

int  convert_symbol_to_int ( ) ; 

void  initiali2e_arithinetic_encoder  () ; 

void  encode_symbol ( )  ; 

void  f lush_arithmetic_encoder ( ) ; 

short  int  get_current_count () ; 

void  initialize_arithmetic_decoder () ; 

void  remove_syinbol_from_stream()  ; 

#endif 

short  int  totals [  258  1 ; 

char  *ConipressionName3  =  "Fixed  order  0  model  with  arithmetic  coding"; 
char  *Usage3  =  "in-file  out-f ile\n\n"; 

void  CompressFile3 (  input,  output  ) 

FILE  'input; 

BIT_FILE  'output; 

{ 

int  c; 

SYMBOL  s; 

build_model(  input,  output->file  ); 
initiali2e_arithmetic_encoder ( ) ; 
while  (  (  c  =  getc  (  input  )  )  !=  EOF  )  { 
convert_int_to_symbol (  c,  4s  ) ; 
encode_symbol (  output,  4s  ); 

} 

convert_int_to_symbol (  END_OF_STBEAM,  4s  ) ; 
encode_symbol (  output,  4s  ); 
flush_arithmetic_encoder (  output  ); 

OutputBits  (  output,  OL,  16  ); 

) 

void  ExpandFile3(  input,  output  ) 

BIT_FILE  'input; 

FILE  'output; 

( 

SYMBOL  s; 
int  c; 
int  count; 

input_counts3 (  input->file  ); 
initiali2e_arithmetic_decoder (  input  ); 
for  (  ;  ;  )  { 

get_syn\bol_scaleO  (  4s  ) ; 
count  »  get_current_count (  4s  ); 


E22 


Appendix  E  Source  Code  for  'Image  Lab’  Software 


c  “  convert_synibol_to_int  (  count,  Ss  ) 
if  (  C  ==  END_OF_STREAM  ) 
break; 

remove_syinbol_from_streaiii  (  input,  Ss  ) 
putc(  (char)  c,  output  ) ; 

) 

} 


void  build_model (  input,  output  ) 

FILE  ‘input; 

FILE  ‘output; 

{ 

unsigned  long  counts [  256  ); 
unsigned  char  scaled_counts [  256  ); 

count_bytes3 (  input,  counts  ); 
scale_counts3 (  counts,  scaled_counts  ); 
output_counts3 (  output,  scaled_counts  ); 
build_totals (  scaled_counts  )  ; 

) 

#ifndef  SEEK_SET 
♦define  SEEK_SET  0 
♦endif 

void  count_bytes3 (  input,  counts  ) 

FILE  ‘input; 
unsigned  long  counts []; 

( 

long  input_marker; 
int  i; 
int  c; 

for  (  i  =»  0  ;  i  <  256  ;  i++  ) 
counts [  i  ]  =  0; 
input_marker  =  ftell (  input  )  ; 
while  (  (  c  =  getc (  input  ) )  ! =  EOF  ) 
counts (  c  )++; 

fseek(  input,  input_marker,  SEEK_SET  ); 

} 

void  scale_counts3 (  counts,  scaled_counts  ) 
unsigned  long  counts []; 
unsigned  char  scaled_counts [ ] ; 

( 

int  i; 

unsigned  long  max_count; 
unsigned  int  total; 
unsigned  long  scale; 
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max_coui.t  =  0; 

for  (  i  =»  0  ;  i  <  256  ;  i++  ) 

if  (  counts [  i  I  >  raax_count  ) 
max_count  =  counts  [  i  ) ; 
scale  =  max_count  /  256; 
scale  =  scale  +  1; 
for  (  i  =  0  ;  i  <  256  ;  i++  )  { 

scaled_counts [  i  )  =  (unsigned  char  )  (  counts  [  i  !  /  scale  ) ; 
if  (  scaled_counts [  i  1  ==  0  SS  counts t  i  J  !=  0  > 
scaled_counts [  i  ]  =  1; 

} 

total  =  1; 

for  (  i  “  0  ;  i  <  256  ;  i++  ) 

total  +=  scaled_counts [  i  I ; 
if  (  total  >  <  32767  -  256  )  ) 
scale  =4; 

else  if  (  total  >  16383  ) 
scale  =  2; 

else 

return; 

for  (  i  =  0  ;  i  <  256  ;  i++  ) 

scaled_counts [  i  ]  /=  scale; 

) 

void  build_totals (  scaled_counts  ) 
unsigned  char  scaled_counts t ] < 

{ 

int  i; 

totals [01=0; 

for  (  i  =  0  ;  i  <  EMD_OF_STREAM  ;  i++  ) 

totals [  i  +  1  ]  =  totals C  i  ]  +  scaled_counts[  i  J; 
totals  [  END_OF_STREAM  +11=  totals  (  END_OF_STREAM  ]  +  1; 

) 

void  output_counts3 (  output,  scaled_counts  ) 

FILE  ‘output; 

unsigned  char  scaled_counts [] ; 

{ 

int  first; 
int  last; 
int  next; 
int  i; 

first  ”  0; 

while  (  first  <  255  &£  scaled_counts [  first  )  =»  0  ) 
f irst++; 

for  (  ;  first  <  256  ;  first  =  next  )  { 
last  ”  first  +  1; 
for  (  ;  ;  )  { 

for  (  ;  last  <•  .56  ;  last++  ) 
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if  (  scaled_counts [  last  ]  ==  0  ) 
break; 

last-; 

for  (  next  =  last  +1;  next  <  256  ;  next++  ) 
if  (  scalecl_counts  [  next  )  !=  0  ) 
break; 

if  (  next  >  255  ) 
break; 

if  (  <  next  -  last  )  >  3  ) 
break ; 


last  =  next; 

] ; 

if 

(  putc(  first, 

,  output  )  !=  first  ) 

f atal_error ( 

"Error  writing  byte  countsXn" 

); 

if 

(  putc(  last. 

output  )  !=  last  ) 

fatal_error ( 

"Error  writing  byte  countsNn" 

); 

for 

(  i  =  first  ; 

■  i  <=  last  ;  i++  )  ( 

if  (  putc (  scaled_counts (  i  ),  output  )  != 

(int)  scaled_counts [  i  1  ) 
fatal_error(  "Error  writing  byte  countsVn"  ); 


) 

if  (  putc(  0,  output  )  !=  0  ) 

fatal_error(  "Error  writing  byte  counts\n"  ); 


void  input_counts3 (  input  ) 

FILE  ‘input; 

{ 

int  first; 
int  last; 
int  i; 
int  c; 

unsigned  char  scaled_counts [  256  ); 

for  (  i  =  0  ;  i  <  256  ;  i++  ) 
scaled_counts [  i  ]  =  0; 
if  (  (  first  =  getc(  input  )  )  ==  EOF  ) 

fatal_error<  "Error  reading  byte  countsNn"  ); 
if  (  (  last  =  getc (  input  )  )  ==  EOF  ) 

fatal_error(  "Error  reading  byte  countsVn"  ); 
for  (  ;  ;  )  1 

for  (  i  =  first  ;  i  <=  last  ;  i++  ) 

if  (  (  c  =  getc(  input  )  )  ==  EOF  ) 

fatal_error (  "Error  reading  byte  countsXn"  ) ; 

else 

scaled_counts (  i  )  =  (unsigned  char)  c; 
if  (  (  first  =  getc(  input  )  )  =•  EOF  ) 

fatal_etror(  "Error  reading  byte  countsNn"  ); 
if  (  first  '=  0  ) 
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break; 

if  (  (  last  =  getc(  input  )  )  ==  EOF  ) 

f atal_error (  "Error  reading  byte  counts\n"  ) ; 

) 

build  totals  (  scaled  counts  ); 


static  unsigned  short  int  code; 
static  unsigned  short  int  low; 
static  unsigned  short  int  high; 
long  underflow_bits; 

void  initialize_arithmetic_encoder () 

( 

low  =  0; 

high  =  Oxffff; 

underf low_bits  =  0; 

} 

void  f lush_arithmetic_encoder (  stream  ) 
B1T_FILE  ‘stream; 

{ 

OutputBit(  stream,  low  &  0x4000  ); 

underf low_bits++; 

while  (  underf low_bits-  >  0  ) 

OutputBit(  stream,  'low  i  0x4000  ); 

} 

void  convert_int_to_symbol (  c,  s  ) 
int  c; 

SYMBOL  *s; 

( 

s->scale  =  totals!  END_OF_STREAM  +  1  ) ; 
s->low_count  =  totals!  c  I; 
s->high_count  =  totals  I  c  +  1  I; 

) 


void  get_symbol_scale (  s  ) 

SYMBOL  *s; 

{ 

s->scale  =  totals!  END_OF_STREAM  +  1  1; 

} 


int  convert_symbol_to_int (  count,  s) 
int  count; 

SYMBOL  *s; 

1 

int  c; 

for  (  c  =  END  OF  STREAM  ;  count  <  totals!  c  )  ;  c-  ) 
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3->high_count  -  totals [  c  +  1  ] ; 
s->low_count  =  totals [  c  ]; 
return  (  c  ) ; 

) 

void  encode_symbol (  stream,  s  ) 

BIT_FILE  ‘Stream; 

SYMBOL  *s; 

{ 

long  range; 

range  =  (long)  (  high-low  )  +  1; 
high  =  low  +  (unsigned  short  int) 

( (  range  *  s->high_count  )  /  s->scale  -  1  ) ; 
low  =  low  +  (unsigned  short  int) 

( (  range  *  s->low_count  )  /  s->scale  ) ; 

for  (  ;  ;  )  { 

if  (  (  high  &  0x8000  )  ==  (  low  &  0x8000  )  )  { 

OutputBit (  stream,  high  &  0x8000  ) ; 
while  (  underf low_bits  >  0  )  { 

OutputBit (  stream,  -high  &  0x8000  ) ; 
under flow_bits-; 

) 

) 

else  if  (  (  low  &  0x4000  )  &&  ! (  high  &  0x4000  ))  ( 
underflow_bits  +*  1; 
low  &=  0x3fff; 
high  1=  0x4000; 

)  else 

return  ; 
low  «=  1; 
high  <<=  1; 
high  1=  1; 

) 

} 

short  int  get_current_count (  s  ) 

SYMBOL  *s; 

( 

long  range; 
short  int  count; 

range  =  (long)  (  high  -  low  )  +  1; 
count  =  (short  int) 

((((long)  (  code  -  low  )  +  1  )  *  s->scale-l  )  /  range  ); 

return  (  count  ) ; 

) 

void  initialize_arithmetic_decoder (  stream  ) 

BIT_FILE  ‘stream; 

( 

int  i; 
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I  code  =  0; 

for  (  i  =  0  ;  i  <  16  ;  i++  )  { 
code  «=•  1; 

code  +”  InputBit  (  stream  ) ; 

) 

low  =  0; 
high  =  Oxffff; 

} 

void  remove_sytnbol_from_stream(  stream,  s  ) 

BIT_F1LE  »stream; 

SYMBOL  *s; 

{ 

long  range; 

range  =  (long) (  high  -  low  )  +  1; 
high  =  low  +  (unsigned  short  int) 

( (  range  *  s->high_count  )  /  s->scale  -  1  ) ; 
low  =  low  +  (unsigned  short  int) 

( (  range  *  s~>low_count  )  /  s->scale  ) ; 

for  (  ;  ;  )  ( 

if  (  (  high  s  0x8000  )  ==  (  low  &  0x8000  )  )  ( 

} 

else  if  ((low  &  0x4000)  ==  0x4000  SS  (high  &  0x4000)  ==  0  )  { 
code  '=•  0x4000; 
low  S=  0x3fff; 
high  1“  0x4000; 

}  else 

return; 
low  «=  1; 
high  «=  1; 
high  1=  1; 
code  «=  1; 

code  +=  InputBit (  stream  ); 

) 

} 

/*»*«»********»*********** ***»end  arithmetic******************************/ 
/»**********»•»********«****»***»****«**»******»**♦**•*♦»**»**»»♦♦»»»»*•»*/ 

/»»**»**** *******»********»***»*START  LZW*********************************/ 
♦define  BITS  12 

♦define  MAX_CODE  (  (  1  «  BITS  )  -  1  ) 

♦define  TABLE_SIZE  5021 

♦define  FIRST_CODE  257 

♦define  UNUSED  -1 

♦ifdef  _STDC _ 

void  CompressFile (FILE  *input,  BIT_FILE  *output); 
void  ExpandFile(  BIT_FILE  *input,  FILE  *output); 

unsigned  int  f ind_child_node (  int  parent_code,  int  child_chatacter  ); 
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unsigned  int  decode_string (  unsigned  int  offset,  unsigned  int  code  ); 
#else 

unsigned  int  find_child_node() ; 
unsigned  int  decode_string()  ; 
void  CompressFile ( ) ; 
void  ExpandFile ( ) ; 

#endif 

char  *CompressionName  =  "LZW  12  Bit  Encoder"; 
char  *Usage  =  "in-file  out-file\n\n"; 

struct  dictionary  { 
int  code_value; 
int  parent_code; 
char  character; 

)  dict[  TABLE_SIZE  ]; 

char  decode_stack [  TABLE_SIZE  ]; 

#define  PACIFIER_COONT  2047 

/****»********»»»**»»**»*»*»*»*STf;^T  LZWC0M*»»***»**»***** *******••«/ 
void  CompressFile (  input,  output) 

FILE  *input; 

BIT_FILE  *output; 

( 

int  next_code; 
int  character; 
char  character!; 
int  string_code; 
unsigned  int  index; 
unsigned  int  i; 

nex.t_code  =  FIRST_CODE; 
for  (  i  =  0  ;  i  <  TABLE_SIZE  ;  i++  ) 
dict[  i  l.code_value  =  UNUSED; 
if  (  (  string_code  =  getc(  input  )  )  ==  EOF  ) 
string_code  =  END_OF_STREAM; 
while  ((  character  =  getc (  input  )  )  !=  EOF)  { 

index  =  find_child_node (  string_code,  character  ); 
if  (  diet [  index  1 .code_value  !=  -1  ) 

{ 

string_code  =  diet (  index  ) .code_value; 

) 

else  { 

if  (  next_code  <=  MAX_CODE  )  { 

dict(  index  ) .code_value  =  next_code++; 
diet (  index  rent_code  =  string_code; 
dict(  inde  ,  character  =  (char)  character; 

) 

OutputBits(  output,  (unsigned  long)  string_code,  BITS  ); 
string_code  =  character; 

) 

) 

OutputBits (  output,  (unsigned  long)  sttingcode,  BITS  ); 
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OutputBits (  output,  (unsigned  long)  END_OF_STREAM,  BITS  ) ; 

) 

/*.»*«***.*»»*»..»»**.. *..*.»**end  lzwcom* ************************/ 

/****»*****»*************» »*»START  lzwdecom*************** ********/ 
void  ExpandFile(  input,  output) 

BIT_FILE  ‘input; 

FILE  ‘output; 

{ 

unsigned  int  next_code; 
unsigned  int  new_code; 
unsigned  int  old_code; 
int  character; 
unsigned  int  count; 

next_code  =  FIRST_CODE; 

old_code  =  (unsigned  int)  InputBits(  input,  BITS  ); 
if  (  old_code  ==  END_OF_STREAM  ) 
return; 

character  =  old_code; 
putc (  old_code,  output  ) ; 

while  (  (  new_code  =  (unsigned  int)  lnputBits(  input,  BITS  )  ) 
!=  END_OF_STREAM  )  ( 
if  (  new_code  >=  next_code  )  { 

decode_stac)c  t  0  ]  =  (char)  character; 
count  =  decode_string(  1,  old_code  ); 


else 

count  =  decode_string(  0,  new_code  ); 
character  =  decode_stac)c  [  count  -  1  1; 
while  (  count  >  0  ) 

putc  (  decode_stac)c  [  -count  1 ,  output  ) ; 
if  (  next_code  <=  MAX_CODE  )  ( 

diet (  next_code  J . parent_code  =  old_code; 
dict(  next_code  ] .character  =  (char)  character; 
next_code++; 

) 

old_code  =  new_code; 

} 

) 

unsigned  int  find_child_node (  parent_code,  child_character  ) 
int  patent_code; 
int  child_chatacter; 

{ 

int  index; 
int  offset; 

index  =  (  child_character  «  (  BITS  -  8  )  )  ^  parent_code; 
if  (  index  ==  0  ) 
offset  =  1; 

else 
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offset  »  TABLE_SIZE  -  index; 
for  (  ;  ;  )  ( 

if  (  dict[  index  ] .code_value  ==  UNUSED  ) 
return  (  index  ) ; 

if  (  dictt  index  ) .parent_code  ==  parent_code  && 

dict(  index  ] .character  ==  (char)  child_character  ) 
return  (  index  ) ; 
index  -=  offset; 
if  (  index  <  0  ) 

index  +=  TABLE_SIZE; 

) 

) 

unsigned  int  decode_string (  count,  code  ) 
unsigned  int  count; 
unsigned  int  code; 

{ 

while  (  code  >  255  )  { 

decode_stack [  count++  ]  =  dictC  code  1 .character ; 
code  =  diet!  code  ] .parent_code; 

) 

decode_stack [  count++  1  =  (char)  code; 
return  (  count  ) ; 

) 

/****.*****.»**»*«»»****»* *****»»END  lzwdecom*****»*»************» »»***•*•/ 

/...».»**»..*»»***»*****»»*********END  lzw*******»»»*»****»»**»**»»»»*****/ 
/******»»**»»»****»»»»«*»«»»»»»*»»»***»«»»»♦»»«»*»»*»»*♦*«♦***♦♦»*«»»***♦»/ 


/**************************  START  BITIO.C  **•»*******••••**»»***»*»****♦**/ 
BIT_FILE  *OpenOutputBitFile (  name  ) 
char  *name; 

{ 

BIT_FILE  *bit_file; 

bit_file  =  (BIT_FII,E  *)  calloc(  1,  sizeof(  BIT_FILE  )  ); 
if  (  bit_file  ==  NULL  ) 
return (  bit_file  )  ; 
bit_file'>file  =  fopen (  name,  "wb"  ) ; 
bit_file->rack  =  0; 
bit_file->mask  =  0x80; 
bit_file->pacifier_counter  =  0; 
return (  bit_f ile  ) ; 

} 

BIT_FILE  *OpenInputBitFile (  name  ) 
char  *name; 

{ 

BIT  FILE  *bit  file; 
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bit_file  =  (BIT_FIIiE  *)  calloc  (  1,  sizeof  (  BIT_FI1.E  )  ); 
if  (  bit_file  ==  NULL  ) 
return (  bit_file  )  ; 
bit_file->file  =  fopen (  name,  "rb"  ) ; 
bit_file->rack  =  0; 
bit_file->mask  =  0x80; 
bit_file->pacifier_counter  =  0; 
return (  bit_file  ) ; 

) 

void  CloseOutputBitFile(  bit_file  ) 

BIT_FILE  *bit_file; 

{ 

if  (  bit_f ile->tnask  !=  0x80  ) 

if  (  putc(  bit_file->rack,  bit_file->file  )  !•=  bit_file->rack  ) 
fatal_error(  "Fatal  error  in  CloseBitFile! \n"  ); 
fclose (  bit_file->file  ) ; 
free(  (char  *)  bit_file  ); 

) 

void  CloseInputBitFile (  bit_file  ) 

BIT_FILE  *bit_file; 

{ 

fcl03e(  bit_file->file  ) ; 
free<  (char  *>  bit_file  ); 

) 

void  OutputBit (  bit_file,  bit  ) 

BIT_FILE  *bit_file; 
int  bit; 

{ 

if  (  bit  ) 

bit_file->rack  |=  bit_file->mask; 
bit_file->inask  »=  1; 
if  (  bit_file->tnask  ==  0  )  { 

if  (  putc(  bit_file->rack,  bit_file->file  )  !=  bit_file->rack  ) 
fatal_error(  "Fatal  error  in  OutputBit ! \n"  ); 

else 

if  (  (  bit_file->pacifier_counter++  &  PACIFIER_C00NT  )  =“  0  ) 
putc(  stdout  ); 

bit_file->rack  =  0; 
bit_file->mask  «  0x80; 

} 

) 

void  OutputBits (  bit_file,  code,  count  ) 

BIT_FILE  *bit_flle; 
unsigned  long  code; 
int  count; 

{ 
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unsigned  long  mask; 


mask  ”  IL  «  (  count  -  1  ) ; 
while  (  mask  !=  0)  { 
if  (  mask  &  code  ) 

bit_file->rack  1=  bit_file->mask; 
bit_file->mask  »*  1; 
if  (  bit_file->mask  ==  0  )  { 

if  (  putc(  bit_file->rack,  bit_file->file  )  !=  bit_file->rack  ) 
fatal_error(  "Fatal  error  in  OutputBit ! \n"  ); 
else  if  (  (  bit_file->pacifier_counter++  £  PACIFIER_COUNT  )  ==  0  ) 
putc (  ' . ' ,  stdout  ) ; 
bit_file->rack  -  0; 
bit_file->mask  =  0x80; 

} 

mask  »=  1; 

} 

) 

int  InputBit (  bit_f ile  ) 

BIT_FILE  »bit_file; 

( 

int  value; 

if  (  bit_file->mask  ==  0x80  )  ( 

bit_file->rack  =  getc(  bit_file->file  ); 
if  (  bit_file->rack  ==  EOF  ) 

fatal_error(  "Fatal  error  in  InputBit! \n"  ); 
if  (  (  bit_file->pacifier_counter++  &  PACrFIER_C00NT  )  ==  0  ) 
putc (  ' . ' ,  stdout  ) ; 

) 

value  =  bit_file->rack  &  bit_file->mask; 
bit_file->mask  »=  1; 
if  <  bit_file->mask  ==  0  ) 
bit_file->raask  =  0x80; 
return  (  value  ?  1  :  0  ) ; 

) 

unsigned  long  InputBits!  bit_file,  bit_count  ) 

BIT_FILE  *bit_file; 
int  bit_count; 

{ 

unsigned  long  mask; 
unsigned  long  return_value; 

mask  “  IL  «  (  bit_count  -  1  ) ; 
return_value  -  0; 
while  (  mask  !*  0)  { 

if  <  bit_file->mask  -=  0x80  )  { 

bit_f ile->rack  =  getc(  bit_file->file  ); 
if  (  bit  file->rack  ==  EOF  ) 
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fatal_error(  "Fatal  error  in  InputBit!\n"  ); 
if  (  (  bit_file->pacif ier_counter++  &  PACIFIER_COONT  )  ==  0  ) 
putc(  stdout  ); 

t 

if  (  bit_file->rack  &  bit_file->mask  ) 
return_value  1=  mask; 
mask  >>=  1; 
bit_file->mask  »=  1; 
if  (  bit_file->mask  ==  0  ) 
bit_file->mask  =  0x80; 

} 

return  (  return_value  ) ; 

) 

void  FilePrintBinary (  file,  code,  bits  ) 

FILE  ‘file; 
unsigned  int  code; 
int  bits; 

{ 

unsigned  int  mask; 

mask  =  1  <<  (  bits  -  1  ) ; 
while  (  mask  ! =  0  )  { 
if  (  code  i  mask  ) 

fputc (  ' 1' ,  file  ) ; 

else 

fputc (  ' 0' ,  file  ) ; 
mask  >>=  1; 

) 

) 

end  bitio.c  •****♦♦*♦**»»*****♦**»***♦/ 

/»***»»»**»******»****.♦**  START  ERRHAND.C  *♦*************♦*»*****♦/ 
#ifdef  _ STDC _ 

void  fatal_error(  char  *fmt,  ...  ) 

#else 

#ifdef  _ UNIX _ 

void  fatal_error(  fmt,  va_alist  ) 

char  *fmt; 

va_dcl 

♦else 

void  f atal_error (  fmt  ) 
char  *fmt; 
tendif 
tendif 
{ 

va_list  argptr; 
va_start(  argptr,  fmt  )  ; 
printf(  "Fatal  error:  "  ); 
vprintf(  fmt,  argptr  ); 
va_end(  argptr  ); 
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exit (  -1  ) ; 


) 

/»*»*»»*»****.**»*»*******»**  end  errhand.c  **•*************»******»*/ 

/****4t***-******************************************************‘***********/ 

/»***»»**»****»****»*****»CompresS/DECOMPRESS**»*****************»*»******/ 
Int  compdecomp (flag, data) 
int  flag, data; 

{ 

int  ch6,ch7; 

char  Strings [80] , string4 [80] ; 

FILE  ‘input; 

BIT_FILE  ‘output; 

BIT_FILE  ‘inputl; 

FILE  ‘ output 1; 

Set_Mode ( 3 )  ; 

if  (flag  ==  1)  goto  decompress; 
compress : 

if  (data  ==  10)  goto  huffman; 
if  (data  ==  20)  goto  ahuff; 
if  (data  ==  30)  goto  Izw; 
if  (data  ==  40)  goto  arith; 
goto  end3; 

huffman: 

printf  ("HUFFMAN  COMPRESSION  PROGRAMNn")  ; 
restartl : 

printf ("\nType  name  of  input  file:  "); 

scanf ("%s", string!) ; 

input  =  fopen  (string!,  "r+b") ; 

if  (input  ==  (FILE  ‘)  NULL) 

{ 

printf ("\n  Bad  file  -  try  again  \n  \n"); 
goto  restartl; 

] 

printf ("\nType  name  of  output  file:  ") ; 
scanf ("%s", string4) ; 

printf ("\nOutput  File  =  %s\n\n", string4) ; 
output  =  OpenOutputBitFile (strlng4) ; 

CompressFile! (input, output) ; 
fc lose (input) ; 

CloseOutputBitFile (output) ; 
goto  end3; 

ahuff: 

printf  ("ADAPTIVE  HUFFMAN  COMPRESSION  PROGRAMNn"); 
restart! : 
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printf (“\nType  name  of  input  file:  "); 

scanf  string!)  ; 

input  “  fopen  (string!,  "r+b") ; 

if  (input  =-  (FILE  •)  NULL) 

( 

printf (“\n  Bad  file  -  try  again  \n  \n"); 
goto  restart!; 

) 

printf ("\nType  name  of  output  file:  ") ; 
scanf ("%s",string4) ; 

printf ("\nOutput  File  -  %s\n\n", string4) ; 
output  =  OpenOutputBitFile (string4) ; 

CompressFilel (input, output) ; 
fclose (input) ; 

CloseOutputBitFile (output) ; 
goto  end!; 

Izw: 

printf  ("LZW  COMPRESSION  PROGRAMVn"); 
restart!: 

printf ("\nType  name  of  input  file:  "); 

scanf ("%s", string!) ; 

input  =  fopen  (string!,  "r+b"); 

if  (input  ==  (FILE  •)  NULL) 

( 

printf ("\n  Bad  file  -  try  again  \n  \n"); 
goto  restart!; 

) 

printf ("\nType  name  of  output  file:  ") ; 
scanf ("%s", string4) ; 

printf ("\nOutput  File  =  %s\n\n", string4) ; 
output  =  OpenOutputBitFile (string4) ; 
Coi^pressFilednput, output)  ; 
fclose (input) ; 

CloseOutputBitFile (output) ; 
goto  end!; 

arith: 

printf  ("ARITHMETIC  COMPRESSION  PROGRAMXn"); 
restart4: 

printf ("\nType  name  of  input  file:  "); 

scanf ("%s", string!) ; 

input  “  fopen  (string!,  "r+b"); 

if  (input  =»  (FILE  *)  NULL) 

{ 

printf ("\n  Bad  file  -  try  again  \n  \n"); 
goto  restart4; 

) 

printf ("\nType  name  of  output  file:  ") ; 
scanf (”%s", string4) ; 

printf (”\nOutput  File  -  %s\n\n", string4) ; 
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output  -  OpenOutputBitFile  (string4) ; 
Compre3sFile3  (input,  output)  ; 
f close (input) ; 

CloseOutputBitFile (output) ; 
goto  end3; 


decompress : 

if  (data  ==  10)  goto  huffmanl; 
if  (data  ==  20)  goto  ahuffl; 
if  (data  ==  30)  goto  Izwl; 
if  (data  ==  40)  goto  arithl; 
goto  end3; 

huffmanl : 

printf  ("Htre'FMAN  DECOMPRESSION  PROGRAMXn") ; 
restarts: 

printf ("\nType  name  of  input  file:  ") ; 
scanf ("%s", Strings) ; 
if  (input  ==  (FILE  *)  NULL) 

( 

printf ("\n  Bad  file  -  try  again  \n  \n"); 
goto  restarts; 

) 

inputl  =  Openlnpt'i-BitFile (Strings) ; 
printf ("NnTy^e  name  of  output  file:  ~); 
scanf ("%s",  string4)  ; 
outputl  =  fopen  (string4,  "w+b"); 
printf (“\nOutput  File  =  %s",string4) ; 
printf ("\n\n.") ; 

ExpandFile2 (inputl, outputl) ; 

CloseInputBitFile (inputl)  ; 
f c lose ( output 1 ) ; 
goto  ends,- 

ahuffl : 

printf  ("ADAPTIVE  HUFFMAN  DECOMPRESSION  PROGRAMXn") 
restarts: 

printf  ("\nType  ncime  of  input  file:  "); 
scanf ("%s", Strings) ; 
if  (input  ==  (FILE  *)  NOLL) 

{ 

printf ("\n  Bad  file  -  try  again  \n  \n"); 
goto  restarts; 

) 

inputl  =  OpenInputBitFile (Strings) ; 
printf ("\nType  name  of  output  file:  "); 
scanf ("%s", string4) ; 
outputl  ”  fopen  (string4,  "w+b"); 
printf ("\nOutput  File  “  %s", String4) ; 
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print f  <"\n\n . " ) ; 

ExpandFilel ( input  1, out put 1 ) ; 
CloseInputBitFile (inputl) ; 
f close (outputl ) ; 
goto  end3; 

Izwl  : 

printf  ("LZW  DECOMPRESSION  PROGRAM\n" ) ; 
restart! : 

printf  ("\nType  name  of  input  file: 
scanf ("%s",string3) ; 

inputl  '  OpenInputBitFile (string!) ; 
if  (input  ==  (FILE  *)  NULL) 


printf ("Nn  Bad  file  -  try  again  \n  \n"); 
goto  restart!; 

) 

printf ("NnType  name  of  output  file:  ") ; 

scanf ("%s", string4) ; 

outputl  =  fopen  (string4,  "w+b"); 

printf ("\nOutput  File  =  %s\n\n", string4) ; 

Ey.pandFile  (inputl,  outputl)  ; 
CloselnputBitFile(inputl) ; 
fclose (outputl) ; 
goto  end3; 

arithl : 

printf  ("ARITHMETIC  DECOMPRESSION  PROGRAM\n") ; 
restarts: 

printf  ("\nType  name  of  input  file:  ") ; 
scanf ("is", string!) ; 

inputl  =  OpenInputBitFile (string!) ; 
if  (input  ==  (FILE  *)  NULL) 

{ 

printf ("\n  Bad  file  -  try  again  \n  \n"); 
goto  restarts; 

) 

printf ("\nType  name  of  output  file:  ; 

scanf ("%s", string4) ; 

outputl  =  fopen  (string4,  "w+b"); 

printf ("\nOutput  File  =  %s\n\n",string4); 

ExpandFile! (inputl, outputl) ; 

CloseInputBitFile (inputl) ; 
fclose (outputl ) ; 

end!: 

printf ("") ; 

) 


/*»,.*.***.♦**♦*♦»♦♦♦»***»»♦»  START  DOFORM  ****•*••***»************»*/ 
void  doform(ixinde.x,  datal,  temp,  c) 


E38 


Appendix  E  Source  Code  for  "Image  Lab"  Software 


int  ixindex; 
int  datal[1281 [8] [8]; 
float  temp [8] [8] ; 
float  c[8]  [8] ; 

{ 

int  i,l,m,  n; 
float  tempi; 

for  (  i  =  0;  i<ixindex;  i++) 

{ 

for  (1=0;  1<8;  1++) 

{ 

tempi  =  0; 

for  (  m  =  0;  m<8;  m++) 

{ 

for  (  n  =  0;  n<8;  n++) 

{ 

tempi  +=  (float)  (datal [i] (m] [n] )  *  c[l][n]; 

) 

temp(ml[ll  =  tempi; 
tempi  =  0; 

} 

) 

for  (1=0;  1<8;  1++) 

{ 

tempi  =0; 

for  (m  =  0;  m<8;  m++) 

( 

for  (  n  =  0;  n<8;  n++) 

{ 

tempi  +=  c(m) (nj  *  temp[n)(l]; 

} 

if  (tempi  >=  0) 

{ 

datal [ij (m] [1]  =  (int)  (tempi  /  8.0  +  0.5); 

} 

else 

( 

datal (il [m] (1)  =  (int)  (tempi  /  8.0  -  0.5); 

) 

tempi  =  0; 

) 

} 

) 

) 

/»*******♦*******♦************  end  DOFORM  ***********»***♦******•**♦*/ 

/***»**♦************»********  START  DOINV  ***************************/ 
void  doinv (ixindex,  datal,  c) 

int  ixindex; 
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int  datal[1281 [8] [81; 
float  c[81 [81; 

( 

int  a,b,q,  d; 

float  tenpl,  temp[81[81; 

for  (a  =  0;  a<ixindex;  a++) 

( 

for  (b  “  0;  b<8;  b++) 

[ 

tempi  =  0.0; 

for  (q  =  0;  q<8;  q++) 

( 

for  (d  =  0;  d<8;  d++) 

{ 

tempi  +=  (float)  (datal [al [ql [dl )  *  c(dl[bl; 

1 

temp[ql[bl  =  tempi; 
tert^sl  =  0.0; 

1 

1 

for  (b  =  0;  b<8;  b++) 

( 

tempi  =0; 

for  (q  =  0/  q<8;  q+t) 

{ 

for  (d  -  0;  d<8;  d++) 

{ 

tempi  +=  c[dl  [ql  *  temp[dl[bl; 

) 

if  (tempi  >=  r ' 

( 

datal [al [ql [bl  =  (int)  (tempi  »  8  +  0.5); 

1 

else 

[ 

datal [al [ql [bl  -  (int)  (tempi  *  8  -  0.5); 

1 

tempi  =  0; 

) 

1 

) 

1 

/♦».**♦**»*»*«***♦**♦***»**»♦♦  end  DOINV  ****•**»*»•*••**•**•*•***•••/ 

/***.*»***».♦♦..*.»*♦*»♦***  START  TRANSFORM  ***•*♦****•*•♦•»*»»*•»*»*/ 
void  transform(flagl,datall) 
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int  flagl, datall; 

( 

int  xindex,  y index,  ixindex,  i,  j,  k,  1,  n.nvn, x,y,datal  [128]  [8]  [8] , 

threshold, widths, heights, xkey, ykey, key.keyl, tempr,  limit,  zone,  interm; 
float  c [8] [8] , tempts] [8] , interml, interm2; 
char  Strings  [80] ,  string"?  [80]  ; 
unsigned  char  cpl, cp2, cpS,  cp4,  cp5,  cp6; 

FILE  *input_filel; 

FILE  *input_file2; 

FILE  *input_fileS; 

FILE  *output_filel; 

FILE  *output_file2; 

FILE  *outl; 

FILE  *out2; 

FILE  *outS; 

if  (flagie  ==  1) 

{ 

lossylS (flagl, datall)  ; 
goto  endl; 

1 

if  (flagie  ==  2) 

{ 

lossy 32 (flagl, datall) ; 
goto  endl; 

1 

Set_Mode(3); 

if  (flagl  ==  0)  printf ("COMPRESSION:  "); 
if  (flagl  ==  1)  printf ("DECOMPRESSION:  "); 

if  (datall  ==  15)  printf ("COSINE-BLACK  &  WHITE  (8  x  8)\n\n"); 
if  (datall  ==  18)  printf ("COSINE-COLOR  (8  X  8)\n\n"); 
if  (datall  ==  25)  printf ("HADAMARD-BLACK  &  WHITE  (8  X  8)\n\n''); 
if  (datall  ==  28)  printf ("HADAMARD-COLOR  (8  X  8)\n\n"); 
if  (datall  =-  35)  printf ("SINE-BLACK  &  WHITE  (8  X  8)\n\n"); 
if  (datall  ==  38)  printf ("SINE-COLOR  (8  X  StXnNn"); 

restarts: 

printf ("Type  name  of  input  file:  "); 
scanf ("%s", Strings) ; 

if  (flagl  ==  1) 

( 

key  -  0; 
i  -  0; 

while  (stringSti)  !=  S&  i  !=  79) 

{ 

i  =  i  +  1; 
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if  (string6[i)  ==  key  =  i; 

) 

string6tkey  +  1]  =  '1'; 

) 

input_filel  =  fopen  (strings,  "r+b"),' 

if  (input_filel  ==  (FILE  *)  NOLL) 

{ 

ptintf ("")  ; 

Strings [key  +  11  =  'd'; 
input_filel  =  fopen (strings,  "r+b"); 

) 

if  (input_filel  ==  (FILE  *)  NULL) 

( 

printf("\n  Bad  file  -  try  again  \n  \n"); 
goto  restart9; 

) 

print f ("\nType  name  of  output  file:  ")  ; 
scanf ("%s", string?) ; 

printf ("\nEnter  width:  ") ; 
scanf ("%i", Swidthl) ; 
printf  ("\nEnter  lieight:  "); 
scanf ("%i", &height3) ; 

if  (flagl  ==  0) 

( 

printf ("\nEnter  threshold:  ") ; 
scanf (“%i", Sthreshold) ; 
restart32 : 

printf ("\nEnter  zonal  filter  level:  "); 
scanf ("%i", &zone) ; 
if  (zone  >8(1  zone  <=  0) 

( 

printf ("\nRANGE:  1  -  8!!"); 
goto  restart32; 

) 

) 

if  (flagl  ==  0) 

{ 

if  (datall  ==18  II  datall  ==28  II  datall  ==  38) 

{ 

outl  =  fopen("V",  "w+b"); 
out2  =  fopen ( "Cb" , "w+b" ) ; 
out3  =  fopen ("Cr", "w+b") ; 
while  ( ! feof (input_filel) ) 

{ 

fscanf  (input_filel,  "%c", &cpl ) ; 
cp4  =  cpl  &  224; 


E42 


Appendix  E  Source  Code  for  "Image  Lab’  Software 


interm  =  cp4; 
interml  =  interm; 
interm2  =  interml  *  .299; 
cp5  =  (cpl  S  28)  *  8; 
interm  =  cp5; 
interml  =  interm; 

interm2  =  interm2  +  interml  *  .587; 
cp6  =  (cpl  S  3)  »  64; 
interm  =  cp6; 
interml  =  interm; 

interm2  =  interm2  +  interml  *  .114; 

interm  =  (interm2  +  .5); 

cp6  =  interm; 

putc (cp6, outl) ; 

cp4  =  cpl  &  224; 

interm  =  cp4; 

interml  =  interm; 

interm2  =  interml  *  -.16874; 

cp5  =  (cpl  &  28)  *  8; 

interm  =  cp5; 

interml  =  interm; 

interm2  =  interm2  +  interml  »  -.33126; 

cp6  =  (cpl  S3)*  64; 

interm  =  cp6; 

interml  =  interm; 

interm2  =  interm2  +  interml  ♦  .5; 

if  (interm2  >  0)  interm  =  (interm2  +.5); 

else  interm  =  (interm2  -  .5); 

cp6  =  interm  +  128; 

putc (cp6, out2) ; 

cp4  =  cpl  S  224; 

interm  =  cp4; 

interml  =  interm; 

interm2  =  interml  *  .5; 

cp5  =  (cpl  S  28)  *  8; 

interm  =  cp5; 

interiii’  =  interm; 

interm2  =  interm2  +  interml  *  -.41869; 
cp6  =  (cpl  S3)*  64; 
interm  =  cp6; 
interml  =  interm; 

interm2  =  interm2  +  interml  *  -.08131; 
if  (interm2  >  0)  interm  =  (interm2  +.5); 
else  interm  =  (interm2  -  .5); 
cp6  =  interm  +  128; 
putc (cp6, out3) ; 

) 

fclose (input_filel) ; 
f close  (outl) ; 
fclose (out2) ; 
fclose (out3) ; 
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) 


} 


output_filel  “  f open (string?,  "w+b"); 
if  (flagl  ”=  0) 

{ 

key  =  0; 
i  =  0; 

while  (string7(i)  !-  is  i  !=  79) 

{ 

i  =  i  +  1; 

if  (string7[i)  “  key  =  i; 

) 

string? (key  +  1]  =  '1'; 
output_file2  =  fopen (string?,  "w+b") ; 

} 

if  (datall  ==18  II  datall  ==28  II  datall  ==  38) 

{ 

f close (output_filel) ; 
fclose (output_f ile2) ; 

xindex  =  width3/8; 
yindex  =  height3/8; 


if  (datall  ==15  II  datall  ==  18)  goto  cosinetran; 

if  (datall  ==25  II  datall  ==  28)  goto  hadamard; 

if  (datall  ==35  II  datall  ==  38)  goto  sinetran; 


cosinetran: 

for  (  k  =  0;  k<=?;  k++) 

( 

for  (  n  =  0;  n<=?;  n++) 

( 

if  (k  ==  0)  c[k)[n)  =  1  /  sqrt(8); 

else  c(k] [n]  =  sqrt(.25)  *  cos(3. 14159  *  (2*n+l)  *k/  16); 

> 

) 

goto  continuel; 


hadamard: 

c(01  [0]  =  1;  c[0) [1] 

c[01 (4)  =  1;  c(0) (5) 

cdl  fOI  =  1;  c(l)  (II 

c(l)  (4)  =  1;  c(l)  (5) 

c(2) (0)  =  1;  c(2)  (1| 


1;  c(01  (21  =  1;  c(0)  (3)  =  1; 

1;  c(01 (6]  =  1;  c(01  (?1  =  1; 
-1;  cdl  (2)  =  1;  cdl  [31  =  -1; 
-1;  cdl  (61  =  1;  c(l)  (?)  =  -1; 
1;  c(21  (21  =  -1;  c(21 (3)  =  -1; 
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c[2]  [4] 

1; 

c[21  [5]  =  1;  c(21  (61  = 

-1;  0(21(7]  =  -1 

c[3] (0) 

- 

1; 

c(31  (11  -  -1;  c(31 (21 

=  -1;  c(3)  (31  =  1 

c[31  [4] 

= 

1; 

c(31 (51  =  -1;  c(31 (61 

»  -1;  c(31 (7]  =  1 

c[4] (0) 

= 

1; 

c(41  (11  =  1;  c(41  (21  = 

1;  0(41(31  =  1; 

c[4)  (4) 

= 

-li 

:  c(41  (51  =  -1;  c(41 (61 

=  -1;  0(4] (7)  = 

c[5] [0) 

= 

1; 

c(51  (11  =  -1;  c(51  (21 

=  1;  c(51 (31  =  -1 

c[5] [4] 

= 

-1; 

:  C(51 (51  =  1;  c(51 (61 

=  -1;  c(5)  (7)  =  1 

c[6] [0] 

= 

1; 

c(61 (11  -  1;  c(61  (21  = 

-1;  c(6] (31  =  -1 

c[6] [4] 

= 

-Ij 

r  c(61  (51  =  -1;  c(61 (61 

=  1;  0(61(71  =  1 

c(71 (01 

= 

1; 

c(71  (11  =  -1;  c(71 (21 

=  -1;  c(71  (31  =  1 

c[7]  [4] 

- 

-1; 

r  0(71  (51  =  1;  c(71 (61 

=  1;  0(71 (71  =  -1 

for  (  i 

= 

0; 

i<=7;  i++) 

{ 

for  (  j  =  0;  j<=7;  j++) 

{ 

c[i][jl  =  c[il[j]  /  sqrt(8); 


) 

goto  continuel; 


sinetran: 

for  (k  =  0;  k<=7;  k++) 

{ 

for  (n  =  0;  n<=7;  n++) 

{ 

c(kl(n]  ”  sqrt(. 22222222)  •  sin<3. 14159  *  (n  +  1)  *  (k  +  l)/9); 

) 

) 

continuel : 

if  (datall  ==18  II  datall  ==28  II  datall  ==  38)  limit  =  3; 

else  limit  =  1; 

for  (1  =  0;  1  <  limit;  1++) 

{ 

print f ("\n . ") ; 

if  (8  *  yindex  !=  height3)  yindex  =  yindex  +  1; 
if  (flagl  ==  0) 

{ 

if  (datall  ==18  II  datall  ==28  | I  datall  ==  38) 

( 

if  (1  ==  0) 

{ 

input_filel  =  fopenC'Y",  "r+b"); 
key  =  0; 
i  =  0; 

w(iile  (string7(i)  !=  ss  i  !=  79) 

{ 

i  =  i  +  1; 

if  (string7(i]  ==  '.')  key  =  i; 

) 

string7[key  +  1)  =  'y'; 
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string7[)cey  +  2)  =  'y'; 
string? [key  +3)  =  'y'; 
output_filel  =  fopen (string?,  “w+b"); 
string? [key  +  1]  =  '1'; 
output_file2  =  fopen (string?,  "w+b"); 

) 

if  (1  ==  1) 

[ 

input_filel  =  fopen ("Cb",  "r+b"); 
key  =0; 
i  =  0; 

while  (string? [i]  SS  i  !=  ?9) 

( 

i  =  i  +  1; 

if  (string? [i]  ==  key  =  i; 

) 

string? [key  +  1]  =  'c'; 

string? (key  +  2]  =  'c'; 

string? [key  +  31  =  'b'; 

output_filel  =  fopen (string?,  "w+b"); 

string? [key  +  1]  =  '1'; 

output_file2  =  fopen (string?,  “w+b") ; 

1 

if  <1  ==  2) 

( 

input_filel  =  fopen ("Cr",  "r+b"); 
key  =  0; 
i  =  0; 

while  (string7(i)  !=  &S  i  !=  ?9) 

{ 

i  =  i  +  1; 

if  (string?[il  ==  '.')  key  =  i; 
} 

string? [key  +  1)  =  'c'; 
string?[key  +  2)  =  'c'; 
string? [key  +  3)  =  ’ r' ; 
output_filel  =  fopen (string?,  "w+b"); 
string?[key  +  1)  =  '1'; 
output_file2  =  fopen (string?,  "w+b"); 

) 

1 

1 

if  (flagl  ==  1) 

( 

if  (datall  ==18  II  datall  ==28  II  datall  ==  38) 

( 

if  (1  ==  0) 

( 

key  =  0; 
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i  -  0; 

while  (string6[il  !=  SS  i  !=  79) 

{ 

i  =  i  +  1; 

if  (String6[i)  ==  )cey  =  i; 

} 

Strings [key  +  1]  =  '1'; 
string6[key  +  2)  =  'y'; 

Strings [key  +  3)  =  'y'; 
input_filel  =  fopen (strings,  "r+b"); 
output_filel  =  fopen ("Yl",  "w+b"); 

) 

if  (1  ==  1) 

{ 

key  =  0; 
i  =  0; 

while  (stringS[il  !=  S&  i  !=  79) 

{ 

i  =  i  +  1; 

if  (string6[il  =  '.')  key  =  i; 

) 

Strings [key  +  IJ  =  '1'; 

Strings [key  +  2]  =  'c'; 

Strings [key  +  3)  =  'b'; 

input_filel  =  fopen (strings,  "r+b") ; 

output_filel  =  fopen (”(351”,  "w+b”); 

} 

if  (1  ==  2) 

{ 

key  =  0; 
i  =  0; 

while  (stringS[i]  !=  S&  i  !=  79) 

( 

i  =  i  +  1; 

if  (string6[i]  ==  '.')  key  =  i; 

} 

Strings [key  +  1)  =  '1'; 

stringS[key  +  2]  =  'c'; 

Strings [key  +  3)  =  'r'; 

input_filel  =  fopen (strings,  "r+b"); 

output_filel  =  fopen("Crl”,  "w+b"); 

) 

} 

) 


for(  j  =  0;  j<=yindex-l;  j++) 

{ 

if  (flagl  ==■  0) 

( 
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printf  ; 

for  (  y  =  0;  y<=7;  y++) 

{ 

for  (  i  “  0;  i<“indej!-l;  i++) 

( 

for  (  X  -  0;  x<-7;  x++) 

{ 

if  (j  *  8  +  <y  +  1)  >  heights) 

{ 

datal (i} [yl fxl  =  0; 

) 

else 

{ 

y)cey  -  y; 

f scanf (input_filel, "%c", Scpl) ; 
datal [il ty] [x]  =  cpl  -  128; 

) 

) 

> 

if  (  8  *  xindex  !=  widths ) 

xkey  =  8  *  xindex; 
i  =  xindex; 

X  =  0; 

while  (xkey  !=  widthS) 

{ 

if  <j  *  8  +  (y  +  1)  >  heights) 

{ 

datal (ij [y] (x)  =  0; 

) 

else 

( 

f scanf (input_filel, ”%c",  &cpl) ; 
datal [1] (y] [x]  *  cpl  -  128; 

) 

X  =  X  +  1; 

xkey  =  xkey  +  1; 

) 

while  (x  !=  8) 

{ 

datal  [IJ  {yj  [xj  -  0; 

X  “  X  +  1; 

) 

) 

) 

) 

if  (flagl  =-  1) 

( 

printf  ("."); 

for  (  y  -  0;  y<-7;  y++) 

( 
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if  <j  *  8  +  (y  +  1)  <”  heights)  yhey  =  y; 
for  <  i  -  0;  i<“xindex-l;  i++) 

{ 

for  (  X  =  0;  x<=7;  x++) 

( 

fscanf (input_filel, “%c", tcpl) ; 
datal [il [y) (xl  =  cpl  -  128; 

) 

) 

if  (  8  *  xindex  !=  widths ) 

xkey  -  8  *  xindex; 
i  =  xindex; 

X  =  0; 

while  (xkey  !•=  widths ) 

{ 

fscanf (input_filel, "%c", Scpl) ; 
datal (i) tyl tx)  =  cpl  -  128; 

X  =  X  +  1; 

xkey  =  xkey  +  1; 

) 

while  (X  !=  8) 

{ 

fscanf (input_filel, "%c", tcpl) ; 
datal [i] [y] [x]  =  cpl  -  128; 

X  =  X  +  1; 

) 

) 

) 

) 

ixindex  =  xindex; 

if  (8  *  xindex  !=  widthS)  ixindex  =  ixindex  +  1; 
if  (flagl  ==  0)  doform( ixindex,  datal,  temp,  c); 
if  (flagl  ==  1)  doinv (ixindex,  datal,  c); 
if  (flagl  ==  0) 

{ 

for  (  y  =  0;  y<=7;  y++) 

{ 

for  (  i  =  0;  i<=xindex-l;  i++) 

{ 

for  (  x  =  0;  x<=7;  x++) 

{ 

if  (datal [i] [y] [x]  >=  -threshold  ts  datal [i] (yj [x] 

<=  threshold)  datal [i] (yl [x]  =  0; 

if  (datal  [i]  tyl  [X)  >  127)  datal  [i]  [yl  [x)  -  127; 
if  (datal (i) [y] [xl  <  -128)  datal [il [yl [xl  =  -128; 
cpl  =  datal [il (yl [xl  +  128; 

if  (j  *  8  +  (y  +  1)  <”  heights)  putc  (cpl,output_filel)  ; 
putc  (cpl,output_file2) ; 

1 
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if  (  8  ♦  xindex  !=  width3) 

( 

xkey  =  8  *  xindex; 
i  =  xindex; 

X  =  0; 

while  {xkey  !=  width3) 

{ 

if  (datal (il lyl [x]  >=  -threshold  &&  datal [i] [y I [xj 

<=  threshold)  datal [i] [y] [x]  =  0; 

if  (datal til [yl [x)  >  127)  datal [i] [yltxl  =  127; 
if  (datal [il (yj txl  <  -128)  datal [iltyl [x]  =  -128; 
cpl  =  datal til [yl [x]  +  128; 

if  (j  *  8  +  (y  +  1)  <=  height!)  putc  (cpl,output_filel) ; 
putc  (cpl,output_fiie2) ; 
x  =  X  +  1; 
xkey  =  xkey  +1; 

> 

while  (X  !=  8) 
t 

if  (datal til [yl tx)  >=  -threshold  &&  datal [il [yl [x) 

<=  threshold)  datal (il (yl [xl  =  0; 

if  (datal [il [yl txl  >  127)  datal  [i] [yl  [xl  =  127; 
if  (datal [il [yl [xl  <  -128)  datal [il (yltxl  =  -128; 
cpl  =  datal [i] [yl (x)  +  128; 
putc  (cpl,output_file2) ; 

X  «  X  +  1; 


) 

) 

if  (flagl  ==  1) 

( 

for  (  y  =  0;  y<=ykey;  y++) 

( 

for  (  i  =  0;  i<=xindex-l;  i+^l 
{ 

for  (  X  =  0;  x<=7;  x++) 

( 

if  (datal [il [yl [xl  >  127)  datal (i 1 [y] [x]  =  127; 
if  (datal [il [yl [xl  <  -128)  datal [il [yllxl  =  -128; 
cpl  =  datal [il [yl (x)  +  128; 
putc  (cpl , output_filel) ; 

1 

1 

if  (  8  *  xindex  !=  width!) 

( 

xkey  =  8  *  xindex; 
i  =  xindex; 

X  =  0; 

while  (xkey  !=  width!) 
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) 

} 

} 

fclose  (input__filel)  ; 
fclose (output_filel) ; 
fclose (output_file2) ; 
) 


{ 

if  (dataldl  [yl  [x]  >  127)  datal  [i]  [y]  [x]  =  127; 
if  (datal [i) tyl [x]  <  -128)  datal [il [y] [x]  =  -128; 
cpl  =  datal [i] [yl  [x]  +  128; 
putc  (cpl,output_filel) ; 

X  =  X  +  1; 
xkey  =  xlcey  +  1; 

) 


if  (zone  ==  8)  goto  jumpl; 
if  (flagl  ==  0) 

{ 

input_filel  =  fopen (string7,  "r+b"); 
output_filel  =  fopen ("tempi",  "w+b"); 

if  (xindex*8  !=  width3)  xindex  =  xindex  +  1; 


for  (y  =  0/  y  <  yindex;  yt+) 

{ 

for  (i  =  0;  i  <  8;  i++) 

( 

for  (X  =  0;  X  <  xindex;  x++) 

{ 

for  (j  =  0;  j  <  8;  j++) 

{ 

fscanf (input_filel, "%c”,icpl) ; 
putc (cpl, output_f ilel ) ; 

1 

) 

) 

) 


fclose (input_f ilel ) ; 
fclose  (output_filel)  ; 

input_filel  =  fopen ("tempi",  "r+b"); 
output_filel  =  fopen (String7,  "w+b"); 

for  (y  =  0;  y  <  yindex;  y++) 

( 


for 

/ 

(i  =  0; 

i  <  8;  i++) 

1 

for 

(X  ^  0; 

X  <  xindex;  x++) 
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{ 

for  (j  “  0;  j  <  8;  j++) 

{ 

fscanf (input_filel, "%c",  Scpl) ; 

if  (i  >=•  zone  I  1  j  >”Zone)  cpl  =  128; 

putc (cpl, output_f ilel) ; 

1 

) 

) 

) 

fclose (input_filel)  ; 
fclost (output_filel)  ; 

> 

junpl : 

if  (datall  =—  18  I l  datall  ==28  I  I  datall  -=  38) 

{ 

if  (flagl  ==  1) 

{ 

input_filel  =  fopen(”Yl”,  "r+b"); 
input_file2  =  fopen("Cbl",  "r+b"); 
input_file3  =  fopen("Crl",  "r+b"); 
output_filel  =  fopen (string!,  "w+b"); 

while  ( ! feof (lnput_filel)  s&  ! feof (input_file2)  &&  ! feof (input_file3) ) 

{ 

fscanf  (input_filel, "%c", 4cpl) ; 

fscanf  (input_file2,  "%c'',  4cp2)  ; 

fscanf  (input_file3,  "%c", 4cp3) ; 

interm  =  cpl; 

interm2  =  interm; 

interm  =  cp3  -  128; 

interml  =  interm; 

intermP  =  interm2  +  interml  *  1.402; 

interm  =  (interm2  +  .5); 

if  (interm  <  0)  interm  =  0; 

cp4  =  interm; 

if  (cp4  >  208)  cp4  =  224; 

else  if  (cp4  >  176)  cp4  =  192; 

else  if  (cp4  >  144)  cp4  =  160; 

else  if  (cp4  >  112)  cp4  =  128; 

else  if  (cp4  >  80)  cp4  =  96; 

else  if  (cp4  >  48)  cp4  =  64; 

else  if  (cp4  >  16)  cp4  =  32; 
else  cp4  =  0; 

interm  =1  ; 

interm2  =  interm; 

interm  =  cp2  -  128; 

interml  =  interm; 

interml  =  interml  *  .34414; 

interm2  =  interm2  -  interml; 

interm  =  cp3  -  128; 
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interml  =  interm; 
interml  =  interml  *  .71414; 
intermS  =  interm2  -  interml; 
interm  =  {interm2  +  .5); 
if  (interm  <  0)  interm  =  0; 
cp5  =  interm; 
if  (cp5  >  208)  cp5  =  224; 
else  if  (cp5  >  176)  cp5  =  192; 

else  if  (cp5  >  144)  cp5  =  160; 

else  if  <cp5  >  112)  cp5  =  128; 

else  if  (cp5  >  80)  cp5  =  96; 

else  if  (cp5  >  48)  cp5  =  64; 

else  if  (cp5  >  16)  cp5  =  32; 
else  cp5  =  0; 

cp5  =  cp5  /  8; 
interm  =  cpl; 
interm2  =  interm; 
interm  =  cp2  -  128; 
interml  =  interm; 

interm2  =  interm2  +  interml  *  1.772; 

interm  =  (interm2  +  .5); 

if  (interm  <  0)  interm  =  0; 

cp6  =  interm; 

if  (cp6  >  160)  cp6  =  192; 

else  if  (cp6  >  96)  cp6  =  128; 

else  if  (cp6  >  32)  cp6  =  64/ 
else  cp6  =  0; 

cp6  =  cp6  /  64; 

cpl  =  cp4  +  cp5  +  cp6; 

putc  (cpl , output_f ilel ) ; 

) 

fclose (input_filel) ; 
fclose (input_f ile2)  ; 
fclose (input_f ile3) ; 
fclose (output_f ilel )  ; 
remove ("Yl" i ; 
remove ("Cbl" ) ; 
remove ("Crl" ) ; 

) 

if  (flagl  ==  0) 

( 

remove ("Y" ) ; 
remove ("Cb") ; 
remove ("Cr") ; 

) 

) 


endl : 

printf  ("")  ; 

) 

/*******«*»*********«*******  XRANSFORM  *****************♦********/ 
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**»*»»»»**C;OMPRESS/DECOMPRESS**»**********  ********  ****** 


**/ 
*  *  / 


/»»*♦***,»♦***.*****•* ****VIDEO  modes**********************/ 

void  graphicsl (idata,  mask,  ch) 
int  idata, mask, ch; 

( 

int  i,j,p,l,m,  ii, j j, kk,mm, red2 [81 , green2 [8) ,blue2 [8J ,x, y, ch3; 
unsigned  char  red [2 56] , green [2 56] ,  blue [256] , redl [256] , greenl [256] , 
bluel(256] ,point_color,cp; 


FILE  *input_file; 
FILE  *inpalette; 
FILE  *out; 


if  (idata  ==  21)  goto  loadimage; 
if  (idata  ==  22)  goto  loadpalette; 
if  (ch  !=  0)  goto  image; 
if  (idata  ==  35)  goto  setmode; 
if  (idata  ==  36)  goto  makepalette; 

setmode: 

Set_Mode(3) ; 

Build_Mode  () ; 
vga_code=Which_VGA ( ) ; 

VGA_id  =  vga_code; 
if (vga_code<0) 

{ 

SetMode(3) ; 

strcpy (message_string,  "ERROR  Exit  100:  Can't  Detect  VGA"); 
Message_On_Screen (message_string)  ; 
exit ( 1) ; 

) 

graphics  =  1; 

Number_Color  =  256; 
for  (  i  =  1;  i<=4;  i++) 

( 

modes [i]  =  0; 

) 

width  =  1024; 
height  =  768; 

mode  =  Find_Mode (width, height, Number_Color, graphics)  ; 
if  (mode  !=  -1)  modes (4)  =  mode; 
width  =  800; 
height  =  600; 

mode  =  Find_Mode(width, height, Number_Color, graphics); 
if  (mode  !=  -1)  modes (3)  =  mode; 
width  =  640; 
height  =  480; 

mode  =  Find_Mode(width, height, Number_Color, graphics); 
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if  (mode  !=  -1)  modes [2]  =  mode; 
width  “  320; 
height  =  200; 

mode  =  Find_Mode (width, height, Number_Color, graphics) ; 

if  (mode  !=  -1)  modes[l)  =  mode; 

printf ("AVAILABLE  MODES\n"); 

if  (modes[l)  !=  0)  printf("\nl.  320X200"); 

if  (modes [2]  !=  0)  printf("\n2.  640X480"); 

if  (modes [3]  !=  0)  printf("\n3.  800X600"); 

if  (modes[4)  !=  0)  printf("\n4.  1024X768"); 

printf  ("\n\nSelection;  ") ; 

ch3  =  getch ( ) ; 

printf ("%c", ch3) ; 

if  (ch3  ==  '1') 

{ 

width  =  320; 
mode  =  modes ( 1 1  ; 

) 

if  (ch3  ==  '2'  ) 

( 

width  =  640; 
mode  =  modes [2 1; 

) 

if  (ch3  ==  '3'  ) 

{ 

width  =  800; 
mode  *  modes ( 31; 

1 

if  (ch3  ==  '4' ) 

( 

width  =  1024; 
mode  =  modes [ 4 ] ; 

) 

if  (mode  ==  -1) 

printf  ("\nError"); 
if (Number_Color==256) 

{  Load_Write_Ban)c_256  (0) ;  Load_Read_Bank_256(0) ;  ) 
if  (Number_Color==16) 

{  Load_Write_Ban)c_16  (0) ;  Load_Read_Ban)c_16  (0) ;  ) 

getch ( ) ; 
goto  end4; 

*«***.**VIDE0  modes**********************/ 

/*»»»» »».»*»**.******.*«**LoAD  palette*********************/ 
loadpalette: 

Set_Mode(3) ; 
restartl8: 

printf  ("Type  name  of  palette  file:  "); 
scanf  ("%s", instringl) ; 
inpalette=fopen (instringl, "r+b") ; 
if  (inpal€*te  ==  (FILE  *)  NOLL) 
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printf("\n  Bad  file  -  try  again  \n  \n"); 
goto  restartlS; 

) 

p  “  0; 

while  (! feof (inpalette) ) 

( 

f scant  (inpalette, "%c", Sstringpall [p] ) ; 

p  =  p  +  1; 

) 

for  (  ii  =  0;  ii<=255;  ii++) 

{ 

redtiil  =  stringpall [ii] ; 

] 

for  (  jj  =  256;  jj<=511;  jj++) 

{ 

1  =  jj  -  256; 

greentl)  =  stringpall [jj] ; 

} 

for  (  )c)c  =  512;  kk<=767;  kk++) 

( 

m  =  kk  -  512; 

blue[m]  =  stringpall [kk] ; 

) 

outp(0x3c8,0) ; 

for  (  mm  =  0;  mm<=255  rom++) 

( 

if  (ch  ==  J  II  ch  —  1  II  ch  ==  4  l(  ch  ==  6)  outp(0x3c9, redtmm] /4) ;  else  outp (0x3c9, 0) ; 

if  (ch  ==  0  II  ch  ==  2  II  ch  ==  4  II  ch  =  6)  outp (0x3c9, green [ram] /4) ;  else  outp (0x3c9, 0) ; 

if  (ch  ==  0  II  ch  ==  3  II  ch  ==  4  II  ch  ==  6)  outp(0x3c9,blue[mm] /4) ;  else  outp(0x3c9, 0) ; 

) 

goto  end4; 

/***************»*********LOA0  PALeTTE**********»»***»*****/ 

/*»**************»**»***»*M;^  pftLETTE»*»»*******»»********/ 
raakepalette; 

Set_Mode(3); 

printf ("Enter  name  of  output  file:  "); 

scant  ("%s", instringl) ; 

out  =  fopen(instringl, "w+b") ; 

printf  ("\nEnter  8  red  intensities  in  ascending  order:\n''); 
for  (  i  -  0;  i<“7;  i++) 

{ 

scanf ("%i",  &red2 [1] )  ; 
redl[i]  -  red2(i]; 

) 

printf ("Enter  8  green  intensities  in  ascending  order :\n"); 
for  (  i  -  0;  l<-7;  1++) 

( 

scanf ("%i", &green2 [i] )  ; 
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printf  ( 
for  (  i 


for  (  i 


for  (  i 


for  (  i 


for  (  i 


for  (  i 


for  (  i 


for  (  i 


for  (  i 


for  (  i 


greenKi]  =  green2[i]; 

} 

'Enter  4  blue  intensities  in  ascending  order: \n") ; 
=  0;  i<=3;  i++) 

( 

scanf  ("%i",  Siblue2  [i] )  ; 
bluel[il  =  blae2[il; 

} 

=  0;  i<=31;  i++) 

{ 

stringpall [i]  =  redl[01; 

) 

=  32;  i<=63;  i++) 

{ 

stringpall  [i]  =  tedl[ll; 

} 

=  64;  i<=95;  i++) 

{ 

stringpall [i]  =  redl(2]; 

) 

=  96;  i<=127;  i++) 

{ 

stringpall [i]  =  redl[31; 

} 

=  128;  i<-159;  i++) 

( 

stringpall (i]  =  redl[4I; 

} 

=  160;  i<=191;  i++) 

{ 

stringpall [i]  =  redl[5]; 

) 

=  192;  i<=223;  i++) 

( 

stringpall [i]  =  redl[6J; 

} 

=  224;  i<«255;  i++) 

{ 

stringpall (i)  =  redl[71; 

} 

=  0;  i<-7;  i-f+j 

{ 

for  (  j  ”  0;  j<”3;  j++) 

( 

stringpall  [32  *  i  +  j  +  256)  =  greer.l[0]; 

) 

for  (  j  ■=  4;  j<-7;  j++) 

{ 

stringpall [32  *  i  +  j  +  256)  =  greenl[l); 

1 

for  (  j  •  8;  j<“H;  j++) 
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stringpall [32  *  i  +  j  +  256)  =  greenl(21; 

) 

for  (  j  =  12;  j<=15;  j++) 

{ 

stringpall [32  *  i  +  j  +  256]  =  greenl[31; 

> 

for  (  j  =  16;  j<=19;  j++) 

{ 

stringpall [32  *  i  +  j  +  256)  =  gteenlt4); 

} 

for  (  j  =  20;  j<=23;  j++) 

{ 

stringpall [32  *  i  +  j  +  256)  =  greenl[5); 

) 

for  (  j  =  24;  j<=2'7;  j++) 

( 

stringpall [32  *  i  +  j  +  256)  =  greenl[6]; 

) 

for  (  j  =  28;  j<=31;  j++) 

( 

stringpall (32  *  i  +  j  +  256)  =  greenl(7]; 

} 

) 

for  (  i  »  0;  i<=63;  i++) 

{ 

stringpall (4  *  i  +  512)  =  bluel[0); 

stringpall [4  *  i  +  1  +  512]  =  bluel[l); 

stringpall [4  *  i  +  2  +  512]  =  bluel[2); 

stringpall [4  *  i  +  3  +  512)  =  bluel[3); 

) 

for  (  i  =  0;  i<=767;  i++) 

{ 

putc  (stringpall [i] ,  out) ; 

) 

fclose  (out); 
goto  end4; 

/.,♦♦*.**.***»*.♦*.. ******MaKE  palette**** ************ ****•/ 

/.******«******.**»*.***..»*»IMAGE**** **************** ****»/ 
loadimage: 

Set_Mode ( 3 )  ; 
restartl9: 

printf  ("Type  name  of  image  file:  "); 
scanf  ("%s", string) ; 
input_file=fopen (string,  "r+b")  ; 
if  (input_file  ==  (FILE  *)  NULL) 

( 

printf ("\n  Bad  file  -  try  again  \n  \n"); 
goto  restart  19; 
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} 

printf  ("\nType  X  dimension:  "); 
scanf  ("%i",&ix); 
printf  ("\nType  Y  dimension:  "); 
scanf  (''%i",Siy); 

image : 

Set_Mode(3)  ; 

if  <ch  !=  0)  input_file=fopen (string, "r+b”) ; 

Set_Mode (mode) ; 

for  (  ii  =  0;  ii<=255;  ii++) 

{ 

red[ii]  =  stringpall [ii] ; 

} 

for  (  jj  =  256;  jj<=511;  jj++) 

{ 

1  =  jj  -  256; 

green[ll  =  stringpall [ jj] ; 

) 

for  (  )ck  =  512;  kk<=767;  kk++) 

( 

m  =  kk  -  512; 

blue(m)  =  stringpall [kk] ; 

} 

outp(0y.3c8, 0)  ; 

for  (  mm  =  0;  mm<“255;  mm++) 

{ 

if  (ch  ==  0  II  ch  ==  1  II  ch  ==  4  II  ch  ==  6)  outp(0x3c9, red[mm) /4) ;  else  outp(0x3c9, 0) ; 

if  (ch  ==  0  II  ch  ==  2  II  ch  ==  4  I  I  ch  ==  6)  outp(0x3c9, green [mm) /4 ) ;  else  outp (0x3c9, 0) 

if  (ch  ==  0  II  ch  ==  3  II  ch  ==  4  ||  ch  ==  6)  outp (0x3c9, blue [mm] /4) ;  else  outp (0x3c9, 0) ; 

) 

for  (y=0;  y<=y-l;y++) 

( 

for  (x=0;  x<=ix-l;x++) 

( 

if  (y  ==  200  Si  width  ==  320)  goto  end9; 

if  (y  ==  480  SS  width  ==  640)  goto  end9; 

if  (y  ==  600  SS  width  ==  800)  goto  end9; 

if  (y  ==  768  SS  width  ==  1024)  goto  end9; 
fscanf  (input_file,  "%c",scp); 
if  (ch  ==  4) 

{ 

point_color  =  cp  S  mask; 

if  (point_color  SS  ch  ==  4)  point_color  =  255; 

) 

else  point_color  =  cp; 

if  (X  <  1024)  WrPixel_256 (x,y, point_color, width) ; 

) 

) 

end9: 

f close (input_file) ; 
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getch  ( ) ; 


end4 : 

printf  ("") ; 

> 

/*******»**»*»******»*»»*****IMAGE****************»»»»*****/ 

/»****»***»»*»»»»»**»***»»»»*FILE*****»******»****»»*»«»*»»/ 

void  copyf (void) 

{ 

char  stringa[20) , stringb(20} ; 
unsigned  char  cpl; 

FILE  ‘input; 

FILE  ‘output; 

Set_Mode (3) ; 
restart40: 

printf ("Type  old  file  name:  ") ; 
scanf ("%s", stringa) ; 
input  =  fopen (stringa,  "r+b") ; 
if  (input  ==  (FILE  *)  NULL) 

{ 

printf ("\n  Bad  file  -  try  again  \n  \n"); 
goto  restart40/ 

} 

printf ("\nType  new  file  name:  ") ; 

scanf ("%s", stringb) ; 

output  =  fopen (stringb,  "w+b") ; 

while  (! feof (input) ) 

{ 

f scanf (input, "%c", scpl) ; 
putc (cpl, output) ; 

) 

fclose (input) ; 
fclose (output) ; 

) 

void  deletef (void) 

{ 

char  stringa[20) ; 
unsigned  char  cpl; 

FILE  ‘input; 

Set_Mode(3) ; 

printf ("Type  file  name  to  delete:  "); 
scanf ("%s", stringa) ; 
remove (stringa) ; 
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f close (Input) ; 

) 

void  rname (void) 

{ 

char  stringa[20] , stringb[20] ; 
unsigned  char  cpl; 

FILE  ‘input; 

FILE  ‘output; 

Set_Mode ( 3 ) ; 
restart41 : 

printf ("Type  old  file  name:  ")  ; 
scanf (”%s", stringa) ; 
input  =  fopen( stringa,  "r+b") ; 
if  (input  ==  (FILE  ‘)  NULL) 

{ 

printf ("\n  Bad  file  -  try  again  \n  \n"); 
goto  restart41; 

) 

printf ("\nType  new  file  name:  "); 

scanf ("%s", stringb) ; 

output  =  fopen (stringb,  "w+b"); 

while  (!feof (input) ) 

( 

fscanf (input, "%c”, Scpl) ; 
putc (cpl, output) ; 

) 

remove (stringa) ; 
f close (input) ; 
fclose (output) ; 

) 

/*********  *.*********»...****PILE“““““““““““““/ 

int  metro (sdata,  data) 
char  ‘sdata; 
int  data; 

( 

int  mas)c,ch; 

mas)c  =  255; 


ch 

=  0; 

if 

(data  ==  23) 

ch  =  1; 

if 

(data  ==  24) 

ch  =  2; 

if 

(data  25) 

ch  -  3; 

if 

(data  26) 

( 

ch  =  4; 
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mask  =  128; 
) 

if  (data  ==  27) 

{ 

ch  =  4; 
mask  =  64; 


if  (data  ==  28) 

{ 

ch  =  4; 
mask  =  32; 

) 

if  (data  ==  29) 

{ 

ch  =  4; 
mask  =  16; 

) 

if  (data  ==  30) 

1 

ch  =  4; 
mask  =  8; 

} 

if  (data  ==  31) 

( 

ch  =  4; 
mask  =  4; 

) 

if  (data  ==  32) 

( 

ch  =  4; 
mask  =  2; 

) 

if  (data  ==  33) 

{ 

ch  =  4; 
mask  =1; 

) 

if  (data  ==  34)  ch  =  6; 
graphicsl (data, mask, ch) ; 
Set_Mode ( 3 ) ; 
return  (1)  ; 

) 

int  file(sdata,  data) 
char  *sdat?; 
int  data; 

( 

if  (data  ==  1)  copyfO; 

if  (data  *=  2)  deletefO; 

if  (data  -=  3)  rnameO; 

Set  Mode  ( 3 ) ; 
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return  (1) ; 

) 

void  getout (idata) 
int  idata; 

{ 

Set_Mode (3) ; 
exit(l) ; 

) 

sed_type  framel; 

int  conipl2  (sdata,  idata) 
char  * sdata; 
int  idata; 

{ 

compdecomp (0, idata)  ; 
Set_Mode(3);  . 
return  (1) ; 

) 


struct  frame_def  lossless_franie[]  =  ( 

(  "HUFFMAN-0  ",  compl2,  10), 

(  FRAME_END  ), 

(  "ADAPTIVE  HUFFMAN  ",  COmpl2,  20), 

{  FRAME_END  ), 

{  "LZW  ",  coinpl2,  30), 

{  FRAME_END  ), 


{  "ARITHMETIC",  COmpl2,  40), 
{  FRAME_END  ), 

(  FRAME_END  ) 

); 

int  compl (idata) 
int  idata; 

{ 

VOID  *sdata; 


Set_Mode ( 3 )  ; 

if  (colorflag  ==  0)  framel  =  f rame_Open (lossless_f rame, 

if  (colorflag  ==  1)  framel  =  f rame_Open  (lossless_frame, 

if  (colorflag  ==  2)  framel  =  f rame_0pen (lossless_f rame, 

if  (colorflag  ==  3)  framel  =  f rame_Open (lossless_f rame, 

frame_Repaint (framel) ; 

frame_Go( framel,  '  ',  (VOID  ♦)  sdata); 

frame  Close (framel); 


bd_ 

.1, 

0x04, 

0x47, 

0x07) 

l>d_ 

.1, 

0x02, 

0x7A,  0x07) 

bd_ 

.1, 

0x01, 

0x7B, 

0x07) 

bd 

1, 

0x07, 

0x70, 

0x07) 

) 
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3ed_type  franie2; 


Int  deconpl2  (sdata,  Idata) 
char  *sdata; 
int  idata; 

( 

con^econ^  ( 1 ,  idata )  ; 

Set_Mode(3); 
return  {!); 

} 

struct  frame_def  lossless_framel [ 1  =  { 

{  "HUFFMAN-0  ",  decompl2,  10), 

{  FRAME_END  ), 

{  "ADAPTIVE  HOFFMAN  ",  deconpl2,  20), 

{  FRAME_END  }, 

{  "LZW  ",  decompl2,  30), 

{  FRAME_END  ), 

{  "ARITHMETIC",  deconvpl2,  40), 

{  FRAME_END  ), 

(  FRAME_END  ) 

): 

int  deconpl  (idata) 
int  idata; 

{ 

VOID  *sdata; 

Set_Mode(3)  ; 

if  (colorflag  “  0)  fraine2  frame_Open (los3less_franiel,  bd_l,  0x04,  0x47,  0x07); 

if  (colorflag  ==  1)  frameZ  =  frame_Open  (lossless_frajnel,  bd_l,  0x02,  0x7A,  0x07); 

if  (colorflag  2)  frameZ  =  fraree_Open (lossless_fraiiiel,  bd_l,  0x01,  0x7B,  0x07); 

if  (colorflag  ==  3)  fraine2  =  fraine_C)pen (lossless_framel,  bd_l,  0x07,  0x70,  0x07); 

fraine_Repaint  ( fraine2)  ; 
frame_Go(fraiiie2,  '  ',  (VOID  *)  sdata) ; 
frame_Close(frame2) ; 

) 

sed_type  frame3; 

int  coinp22  (sdata,  idata) 
char  * sdata; 
int  idata; 

{ 

transform(0, idata)  ; 

Set_Mode(3); 
return  (1) ; 
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I 

struct  frame_def  lossy_fraroe[]  =  { 

(  "COSINE  ",  NULL,  10), 

(  "Black  &  White",  comp22,  15), 

(  "Color",  comp22,  18), 

{  FRAME_END  ), 

{  "HADAMARD  ",  NULL,  20), 

{  "Black  &  White",  coinp22,  25), 

{  "Color",  comp22,  28), 

{  FRAME_END  ), 

(  "SINE  ",  NULL,  30), 


(  "Black  s  White",  comp22,  35), 
(  "Color",  comp22,  38), 

(  FBAME_END  ), 

(  FRAME_END  ) 

}; 

int  comp2 (idata) 
int  idata/ 

{ 

VOID  *sdata; 


Set_Mode (3) ; 

if  (colorflag  ==  0)  frame!  =  f rame_Open (lossy_frame, 

if  (colorflag  ==  1)  frame!  =  f rame_Open (los3y_frame, 

if  (colorflag  ==  2)  frame!  =  f rame_Open (lossy_frame, 

if  (colorflag  ==  3)  frame!  =  f rame_0pen(los3y_frame, 

frame_Repaint  (freime!)  ; 
frame_Go(frame3,  '  ',  (VOID  *)  sdata) ; 
frcime_Close  (frame!) ; 

) 


bd_l. 

0x04 

bd_l. 

0x02 

bd_l. 

0x01 

bd  1, 

OxOV 

0x47, 

0x07) 

0x7A, 

0x07) 

0x7B, 

0x07) 

0x70, 

0x07) 

sed_tyf>e  frame4; 

int  decomp22 (sdata,  idata) 
char  *sdata; 
int  idata; 

{ 

transform(l, idata)  ; 
Set_Mode(3)  ; 
return  (1) ; 

) 


struct  frame_def  lossy_framel ( )  »  { 
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(  "COSINE 


,  NULL,  10}, 


{  "Black  &  White",  deccmp22,  15), 
(  "Color",  decomp22,  18), 

{  FJ1AME_END  ), 

(  "HADAMARD  ',  NULL,  20), 

{  "Black  &  White",  decomp22,  25), 
{  "Color",  decomp22,  28), 

(  FRAME_END  }, 

{  "SINE  ",  NOLL,  30), 

{  "Black  &  White",  decomp22,  35), 
{  "Color",  decomp22,  38), 

{  FRAME_END  ), 

{  FRAME_END  ) 

); 

int  decorap2 (idata) 
int  idata; 

( 

VOID  *sdata; 

Set  Mode (3); 


if 

(colorflag  ==  0) 

frame4  =  frame  Open (lossy_fram6l. 

bd_ 

_1,  0x04, 

0x4  7, 

t"- 

o 

>: 

o 

if 

(colorflag  ==  1) 

frame4  =  f rame_Open (lossy_framel. 

bd_ 

1,  0x02, 

0x7A, 

0x07) 

if 

(colorflag  ==  2) 

frame4  =  frame  Open(lossy_framel, 

bd_ 

O 

:< 

o 

0x7B, 

0x07) 

if 

(colorflag  ==  3) 

frame4  =  frame_Open (lossy  framel. 

bd_ 

_1,  0x07, 

0x70, 

O 

:< 

o 

frame_Repaint ( framed) ; 

frame_Go{frame‘J,  '  ',  (VOID  *)  sdata) ; 
frame  Close (framed ) ; 

} 


int  analysisO (idata) 
int  idata; 

{ 

analyze (0) ; 

Set_Mode (3) ; 
return  (1)  ; 

) 


int  analysis! (idata) 
int  idata; 

{ 

analyze (1) ; 

Set_Mode (3) ; 
return  (1) ; 
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) 

int  analysis2 (idata) 
int  idata; 

{ 

analyze (2) ; 
Set_Mode(3) ; 
return  (1) ; 

} 

int  analysis3 (idata) 
int  idata; 

{ 

analyze (3) ; 

Set_Mode (3)  ; 
return  (1) ; 

} 

int  analysis4 (idata) 
int  idata; 

{ 

analyze (4) ; 
Set_Mode(3) ; 
return  (1) ; 

} 


sed_type  fratneS; 

int  pasteh (idata) 
int  idata; 

( 

analyze (6) ; 

Set_Mode (3) ; 
return  (1) ; 

) 

int  pastev (idata) 
int  idata; 

( 

analyze (7) ; 

Set_Mode(3) ; 
return  (1) ; 

) 

struct  frame_def  chop_f ramel ( )  =  { 

{  "HORIZONTALLY  ",  pasteh,  10), 

(  FRAME_END  ), 

(  "VERTICALLY  ",  pastev,  20), 

(  FRAME_END  }, 
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(  FRAME_END  ) 

); 

int  analysisS (idata) 
int  Idata; 

{ 

analyze (5) ; 
Set_Mode(3) ; 
return  (1) ; 

} 


int  analysis6 (idata) 
int  idata; 


( 

Set_Mode  ( 3 ) ; 

if  (colorflag  ==  0)  frames  = 
if  (colorflag  ==  1)  frames  - 
if  (colorflag  ==  2)  frames  = 
if  (colorflag  ==  3)  frames  = 
frame_Repaint (frames)  ; 
frame_(to (frames,  '  NULL); 
frame_Close (frames) ; 
Set_Mode(3) ; 
return  (1) ; 

) 


f rame_Open (chop_f ramel ,  bd_l , 
f rame_Open (chop_framel,  bd_l, 
frame_Open(chop_f ramel,  bd_l, 
frame_Open (chop_f ramel,  bd_l. 


0x04, 

0x02, 

0x01, 

0x07, 


0x47, 

0x7A, 

0x7B, 

0x70, 


int  analysis7 (idata) 
int  idata; 

{ 

analyze  (8) ; 

Set_Mode ( 3 ) ; 
return  (1) ; 

) 


int  Imode (idata) 
int  idata; 

( 

int  chi 6; 

Set_Mode ( 3 ) ; 

printf ("AVAILABLE  LOSSY  MODESNn"); 

printf("\nl.  8  X  8"); 

printf  ("\n2.  16  X  16”); 

printf ("\n3.  32  X  32"); 

printf ("\n\nMode  Selection:  ") ; 

chl6  =  getchO; 

printf ("%c", chl6) ; 

getchO  ; 

if  (chl6  ==  '1')  flagie  -  0; 
if  (chl6  ==  '2')  flagl6  -  1; 


0x07); 
0x07); 
0x07) ; 
0x07) ; 
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if  (chl6  ==  '3')  flagie  =  2; 


if  (chl6  “  '3') 

( 

printf ("\n\nNOTE;  This  mode  supports  a  maximum  width  of  640."); 
getch ( ) ; 

) 

Set_Mode (3) ; 
return  (1)  ; 

) 


int  mmode(idata) 
int  idata; 

( 

int  ch30; 

Set_Mode (3) ; 

printf ("AVAILABLE  MENU  COLORSNn") ; 

printf ("\nl.  Bed"); 

print f(”\n2.  Green"); 

printf  ("\n3.  Blue"); 

printf  ("\n4.  BSW"); 

printf ("\n\nSelection:  "); 

ch30  =  getchO; 

printf ("%c", ch30) ; 

getch ( ) ; 

if  (ch30  ==  '1')  colorflag  =  0; 
if  (ch30  ==  '2')  colorflag  =  1; 
if  (ch30  ==  '3')  colorflag  =  2; 
if  (ch30  ==  '4')  colorflag  =  3; 
Set_Mode(3)  ; 
return  (1) ; 

) 


static  struct  frame_def  main_frame(J  =  { 

{  "FILE  ",  NULL,  10), 

{  "Copy  File",  file,  1), 

(  "Delete  File",  file,  2), 

(  "Load  File",  metro,  21), 

{  "Load  Palette",  metro,  22), 

{  "Rename  File",  file,  3), 

{  "Quit",  getout,  0), 

{  FRAME_END  ), 

(  "VIEW  ",  NULL,  11), 

(  “Show  Red",  metro,  23), 
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{  "Show  Green",  metro,  24), 

{  "Show  Blue",  metro,  25), 

{  "Show  Bit  Plane  7",  metro,  26), 

{  "Show  Bit  Plane  6",  metro,  27), 

{  "Show  Bit  Plane  5",  metro,  28), 

(  "Show  Bit  Plane  4",  metro,  29), 

{  "Show  Bit  Plane  3",  metro,  30), 

(  "Show  Bit  Plane  2",  metro,  31), 

{  "Show  Bit  Plane  1",  metro,  32), 

{  "Show  Bit  Plane  O",  metro,  33), 

{  "Display  Full  Image",  metro,  34), 

{  FRAME_END  ), 

(  "ANALYSIS  ",  NULL,  12), 

(  "Calculate  Entropy",  analysisO,  0), 
{  "Chop  Image  File",  analysisS,  0), 

(  "Compare  Files",  analysisl,  0), 

(  “Compression  Ratio",  analysis4,  0), 
{  "Difference  Images",  analysis7,  0) , 

(  "Histogram",  analysisl,  0), 

{  "Mean  Squared  Error", analysis2,  0), 
{  "Paste  Image  Files",  analysis6,  0), 

(  FRAME_END  ), 

{  "LOSSLESS  ",  NULL,  13), 

{  "Compression",  compl,  01, 

{  "Decompression", decompl,  0), 

(  FRAME_END  ), 

(  "LOSSY  ",  NULL,  14), 

{  "Compression",  comp2,  0), 

(  "Decompression",  decomp2,  0), 

{  FRAME_END  ), 

{  "OPTIONS",  NOLL,  15), 


‘Set 

Video  Mode' 

' ,  metro 

,  35) 

'Set 

Lossy  Mode' 

' ,  Imode 

,  0), 

‘Set 

Menu  Color' 

' ,  mmode 

,  0), 

Malce  Palette", 

metro. 

36), 

(  FRAME_END  ), 
1  FBAME_END  ) 
); 


main  () 
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{ 

int  i, j, k, l,m,p, ii, j j, kk, mm, red [2 56] , green [256] , blue [256] ; 

FILE  *inpalette; 

void  doinv(int  ixindex,  int  datal [128] [8] [8] ,  float  c[8][81); 

void  doform(int  ixindex,  int  datal  [128]  [8]  [81 ,  float  teii^[8][8],  float  c[8][8]); 

int  compdecomp (int  flag) ; 

void  transform (int  flagl); 

void  getout (void) ; 

void  rname (void) ; 

void  copyf (void) ; 

void  delecef (void) ; 

int  compl (void)  ; 

int  decompl (void) ; 

int  comp2 (void) ; 

int  decomp2 (void) ; 

int  pasteli(int  idata)  ; 

int  pastev(int  idata); 

int  analysisO (void) ; 

int  analysisl (void)  ; 

int  analysis2 (void) ; 

int  analysisl (void) ; 

int  analysis4 (void) ; 

int  analysis! (void) ; 

int  analysis6 (void) ; 

int  analysis^ (void) ; 

int  lmode(int  idata); 

int  mmode(int  idata); 

int  metro (char  »sdata,  int  data) ; 

int  file (char  ‘sdata,  int  data); 

void  graphics! (int  idata,  int  mask,  int  ch) ; 


/***********.»»»***»*»*»*»»**»»MENU***************»*******»********/ 
Build_Mode ( ) ; 
vga_code=Which_VGA ( ) ; 

VGA_id  =  vga_code; 
if (vga_code<0) 

{ 

SetMode (3)  ; 

strcpy (message_string, "ERROR  Exit  100:  Can't  Detect  VGA"); 
Message_On_Screen (message_string) ; 
exit (1) ; 

) 

graphics  =  1; 

Numl>er_Color  =  256; 
for  (  i  =  1;  i<=4;  i++) 

{ 

modes [i]  =  0; 

} 

width  =  1024; 


Appendix  E  Source  Code  for  'Image  Lab'  Software 


E71 


height  -  768; 

mode  -  Find_Mode(width, height, Nuniber_Color,graphics); 
if  (mode  !=  -1)  modes[4]  =  mode; 
width  "•  800; 
height  -  600; 

mode  =  Find_Mode(width, height, Number_Color, graphics); 
if  (mode  !=  -1)  roodes(3]  »  mode; 
width  “  640; 
height  -  480; 

mode  -  Find_Mode (width, height, Number_Color, graphics); 
if  (mode  !=  -1)  modes [2]  =  mode; 
width  -  320; 
height  =  200; 

mode  -  Find_Mode (width, height, Kumber_Color, graphics) ; 
if  (modes[41  !»  0)  mode  =•  modes[4]; 
else  if  (modes [3]  !=  0)  mode  -  modes [31; 

else  if  (modes(2]  !=  0)  mode  ■=  modes[2); 
else  mode  -  modes [11; 
if  (modes[4]  !=  0)  width  =  1024; 
else  if  (modes [3]  !=  0)  width  =  800; 

else  if  (modes (21  !=  0)  width  =  640; 
else  width  =  320; 

inpalette“fopen("graytest.pal",  "r+b")  ; 
p  =  0; 

while  (Ifeof (inpalette)  I 
{ 

fscanf  (inpalette,  ■’%c”,  sstringpall  (pj )  ; 
p  =■  p  +  1; 

1 

for  (  ii  =  0;  ii<=255;  ii++) 

{ 

redCiil  =  stringpall (lil ; 

1 

for  (  jj  -  256;  jj<-511;  jj++) 

( 

1  -  jj  -  256; 

green[l)  -  stringpall ( jjl ; 

1 

for  (  kk  -  512;  )ck<«767;  )c)t++) 

( 

m  •  )c)c  -  512; 

blue(m)  -  stringpall [k)tj; 

} 

outp(0x3c8, 0) ; 

for  (  iwn  “  0;  mm<“255;  n»n++) 

{ 

outp (0x3c9,  red[mml /4) ; 
outp(0x3c9, green Inwl  /4) ; 
outp (0x3c9,blue[mra) /4) ; 

) 
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Set_Mode(3); 

start: 

disp_Init (def_ModeCurrent,  NULL) ; 

if  (colorflag  =“  0)  frame  =  f rame_Open (main_frame,  bd_l,  0x04,  0x47,  0x07); 

if  (colorflag  ==  1)  frame  =  frame_Open <main_f rame,  bd_l,  0x02,  0x7a,  0x07); 

if  (colorflag  ==  2)  frame  =  f rame_C)pen (main_frame,  bd_l,  0x01,  0x7B,  0x07); 

if  (colorflag  =—  3)  frame  -  f rame_Open (main_frame,  bd_l,  0x07,  0x70,  0x07); 

f rame_Repaint ( frame) ; 

frame_Go (frame,  '  NULL); 

frame_Close (frame) ; 

disp_Close  0 ; 

goto  start; 

) 
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LABX . C 


♦include  <stdio.h> 

♦include  <math.h> 

/.**.*.**»**.***»»******»*»*  START  DOFORM16  **»*••»•♦**•»*******»****/ 

void  doformlfi  (ixindex,  dat:al6,  templ6,  cl6) 

int  ixindex; 

int  datal6C32I [16]  (16) ; 

float  templ6(16) (16) ; 

float  cl6[16] (16); 

{ 

int  i,l,m, n; 
float  tempi; 

for  (  i  =  0;  itixindex;  i++) 

{ 

for  (  1  =  0;  1<16;  1++) 

< 

tempi  =  0; 

for  (  m  =  0;  m<16;  m++) 

( 

for  (  n  =  0;  n<16;  n++) 

I 

tempi  +»  (float)  (datal6(i) (m) (n) )  *  cl6(l)[n); 
) 

templ6(m) (1)  =  tempi; 
tempi  =  0; 


> 

for  (1=0;  1<16;  1++) 

( 

tempi  =  0; 

for  (m  =  0;  m<16;  m++) 

( 

for  (  n  =  0;  n<16;  n++) 

{ 

tempi  +=  cl6(m)[n)  *  templ6(n) (1) ; 

> 

if  (tempi  >=  0) 

( 

datal6(i) (m) (1)  =  (int)  (tempi  /  16.0  +  0.5); 
) 

else 

( 

datal6(i) (m) (1)  =  (int)  (tempi  /  16.0  -  0.5); 
) 

tempi  =  0; 

) 
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) 

) 

) 

/*.****»»******»****»*»*»•*»»*  end  D0F0RM16  *»**»»*•*»****•*•»****•**»*/ 

/»»*****»*»»»»»»»»*****»»****  START  D0INV16  *•**»*•»•»*•****•********•*/ 
void  doinvie (ixindex,  datal6,  cl6) 

int  Ixlndex; 

int  datal6[32H16]  [16]; 

float  cl6[161  [16]; 

{ 

int  a,b,q,  d; 

float  tempi,  teii5)[16]  [16]  ; 

for  (a  =  0;  a<ixindex;  a++) 

( 

for  (b  =  0;  b<16;  b++) 

{ 

tempi  =  0.0; 

for  (q  =  0;  q<16;  q++) 

( 

for  (d  =  0;  d<16;  d++) 

( 

tempi  +=  (float)  (datal6(a) [q] (d) )  •  cl6[dj[b); 

} 

ten5)[q]  [b]  =  tempi; 
tempi  =  0.0; 

] 

} 

for  (b  =  0;  b<16;  b++) 

( 

tempi  =  0; 

for  (q  =  0;  q<16;  q++) 

{ 

for  (d  “  0;  d<16;  dt+) 

( 

tempi  +=  cl6[d] [q]  *  temp[d][b]; 

) 

if  (tempi  >=  0) 

{ 

datal6[a] [q] [b]  =  (int)  (tempi  *  16  +  0.5); 

) 

else 

{ 

datal6[a] [q] [b]  -  (int)  (tempi  *  16  -  0.5); 

) 

tempi  -  0; 

) 

) 
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) 


/**.»****************»****.***  end  DOINV16  •*•*••*•»»**•**»*•*••***•*•*/ 

void  lossyl6(flagl,datall) 

Int  f lagl, datall; 

( 

int  ixindex,i,  j,  k,  1,  n,  mm,  x,  y,  threshold, xkey,  ykey, key, keyl, 
ternpr,  datal6[32]  [16]  [16] ,  xindex,  yindex,width3,  limit, 
height 3, ext flag-0,  nxindex, zone, interm,  width4; 
float  cl6[16)  [16] ,  teii?)16(161  [16] ,  interml,  interm2; 
char  string6  [80] ,  string"?  [80] ,  stringO  [80] ,  string9[801 ; 
unsigned  char  cpl, cp2, cp3, cp4,  cp5, cp6; 

FILE  ♦input_filel; 

FILE  *input_file2; 

FILE  *input_file3; 

FILE  *output_filel; 

FILE  *output_f ile2; 

FILE  *outl; 

FILE  *out2; 

FILE  *out3; 

Set_Mode(3); 

if  (flagl  —  0)  printf ("COMPRESSION:  "); 
if  (flagl  ==  1)  printf ("DECOMPRESSION:  "); 

if  (datall  —  IS)  printf ("COSINE-BLACK  i  WHITE  (16  X  16)\n\n"); 

if  (datall  ==  18)  printf  ("COSINE-COLOR  (16  X  16)\n\n*'); 

if  (datall  —  25)  printf ("HADAMARD-BLACK  &  WHITE  (16  X  16)\n\n"); 

if  (datall  —  28)  printf ("HADAMARD-COLOR  (16  X  16)\n\n"); 

if  (datall  =—  35)  printf  ("SINE-BLACK  &  WHITE  (16  X  16)\n\n''); 

if  (datall  --  38)  printf ("SINE-COLOR  (16  X  16)\n\n"); 

restart20: 

printf ("Type  name  of  input  file:  ") ; 
scanf ("%s",string6) ; 

if  (flagl  —  1) 

{ 

key  =  0; 
i  =  0; 

while  (string6[i]  !=  &&  i  !=  79) 

( 

i  -  i  +  1; 

if  (string6li]  —  ’.’)  key  =  i; 

) 

string6[key  +  1]  -  '1'; 

1 
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i.nput_filel  -  fopen (sLringS,  "r+b"); 

if  (input_filel  ==  (FILE  *)  NULL) 

( 

print f ("")  ; 

Strings (key  +  1]  =  'd'; 
input_filel  -  fopen (strings,  "r+b"); 

) 

if  (input_filel  ==  (FILE  *)  NULL) 

1 

printf("\n  Bad  file  -  try  again  \n  \n"); 
goto  restart20; 

) 


printf  ("\nType  name  of  output  file:  "); 
scanf ("%s", stringT) ; 

printf ("\nEnter  width:  "); 
scanf ("%i", Swidthl) ; 
printf  ("\nEnter  height:  ")  ; 
scanf ("%i", Sheightl)  ; 


if  (flagl  ==  0) 

( 

printf ("\nEnter  threshold:  ")  ; 
scanf ("%i" , Sthreshold) ; 
restart31 : 

printf ("\nEnter  zonal  filter  level;  "); 
scanf ("li", izone) ; 
if  (zone  >  IS  I  I  zone  <=  0) 

( 

printf  ("\nRANGE:  I.  -  IS!!"); 
goto  restart31; 

) 

) 


(flagl  ==  0) 

(datall  ==18  II  datall 

] 

00 

1 

cjtl  =  fopenC’Y", 

"w+b"); 

out2  -  fopenC'Cb", 

"w+b" )  ; 

out 3  =  fopen("Cr", 

"w+b")  ; 

while  (!feof (input 

filel)  ) 

1 


f scanf  (input_filel,"%c",Scpl); 

cp4  -  cpl  &  224; 

interm  »  cp4; 

interml  •  interm; 

interm2  -  interml  *  .299; 

cp5  “  (cpl  4  28)  *  8; 
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interm  =  cp5; 
interml  =  interm; 

interm2  =  intern\2  +  interml  ♦  .587; 
cp6  =  (cpl  S3)*  64; 
interm  =  cp6; 
interml  =  interm; 

interm2  =  interm2  +  interml  *  .114; 

interm  =  (interm2  +  .5); 

cp6  =  interm; 

putc (cp6, outl ) ; 

cp4  =  cpl  S  224; 

interm  =  cp4; 

interml  =  interm; 

interm2  =  interml  *  -.16874; 

cp5  =  (cpl  S  28)  *  8; 

interm  =  cp5; 

interml  =  interm; 

interm2  =  interm2  +  interml  *  -.33126; 

cp6  =  (cpl  S  3)  *  64; 

interm  =  cp6; 

interml  =  interm; 

interm2  =  interm2  +  interml  *  .5; 

if  (interm2  <  0)  interm  =  (intetm2  +.S); 

else  interm  =  (interm2  -  .5); 

cp6  =  interm  +  128; 

putc (cp6, out2) ; 

cp4  =  cpl  S  224; 

interm  =  cp4; 

interml  =  interm; 

interm2  =  interml  *  .5; 

cp5  =  (cpl  S  28)  •  8; 

interm  =  cp5; 

interml  =  interm; 

interm2  =  interm2  +  interml  *  -.41869; 
cp6  =  (cpl  s  3)  *  64; 
interm  =  cp6; 
interml  =  interm; 

interm2  =  interm2  +  interml  *  -.08131; 
if  (interm2  >  0)  interm  =  (interm2  +.5); 
else  interm  =  (interm2  -  .5); 
cp6  =  interm  +  128; 
putc (cp6,  out 3)  ; 

) 

fclose (inputfilel) ; 
fclose (outl ) ; 
fclose (out2) ; 
fclose (out3) ; 


) 

output_filel  -  fopen(string7,  "w+b"); 
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for  (X  =  0;  X  <  80;  x++) 

{ 

Strings [xl  =  string7[xl; 

} 

if  (flagl  ==  0) 

( 

key  =  0; 
i  =  0; 

while  (string8[i]  !=  SS  i  !=  79) 

{ 

i  =  i  +  1; 

if  (Strings [il  ==  key  =  i; 

) 

Strings  [key  +  1]  = 

output_file2  =  fopen (Strings,  "w+b") ; 

) 

if  (datall  ==18  II  datall  ==28  II  datall  ==  38) 

{ 

f close (output_f ilel )  ; 
fclose(output_file2) ; 

} 

if  (widths  >  512)  extflag  =  1; 

xindex  =  width3/16; 
yindex  =  height3/16; 

if  (datall  ==15  II  datall  ==  18)  goto  cosinetranl6; 

if  (datall  ==25  II  datall  ==  28)  goto  hadamardlG; 

if  (datall  ==35  II  datall  ==  38)  goto  sinetranl6; 

cosinetranl6: 


for  (  k  =  0;  k<=15;  k++) 

{ 

for  (  n  =  0;  n<=15;  n++) 

( 

if  (k  ==  0)  cl6[kl[nl  =  1.0  /  4.0; 

else  cl6[kl[nl  =  0.3535534  *  cos(3. 14159  •(2*n+l)»k/  32.0); 
} 

) 


goto  continuel6; 


hadamardlS: 

cl6[0]  [0]  =  1;  cl6[01 [1] 
cl6[0)  [4]  =  1;  cl6[0) [5] 
cl6(l) (0)  -  1;  cl6[l) [1] 
cl6[l) [4]  -  1;  cl6(l! [5] 
cl6(2) [0]  =  1;  cl6[2] [1] 


1;  cl6[01[2J  =  1;  cl6l01 (3)  =  1; 
1;  cl6[0][6)  =  1;  cl6(0) [7)  =  1; 
-1;  cl6[l][21  -  1;  cl6(l) [3]  -  -1 
-1;  cl6(ll[61  =  1;  cl6tl][7]  -  -1 
1;  cl6[21(2J  -  -1;  cl6[2] [3]  -  -1 
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Cl6(2]  [4]  -  1;  cl6[2]  C5I 
cl6t3) [0]  -  1;  cl6[3] [1) 
Cl6[31 [4]  -  1;  cl6[3] [5] 
cl6[4]  [0]  -  1;  cl6[41 [1] 
Cl6[41  [41  =  -1;  cl6[4J  [5] 
cierS] [0]  =  1;  cl6[5) [1] 
cl6[5] [4]  -  -1;  cl6[5) [5] 
cl6[61 [0]  =  1;  cl6[6] [1] 
cl6[61  [41  =  -1;  cl6[61  [51 
Cl6[7] [01  =  1;  cl6[7] [11 
Cl6[71 [41  =  -1;  Cl6[71  [5] 
for  (  j  =  0;  j<=7;  j++) 


{ 

for  (  i  =  0;  i<=7 


=  1;  cl6[21[61  -  -1;  cl6t21{7]  =  -1; 

=  -1;  cl6[31[2]  =  -1;  cl6[3][31  =  1; 

=  -1;  cl6[31[61  -  -1;  cl6(31 [71  =  1; 

=  1;  cl6[41[21  =  1;  cl6t41 [31  =  1; 

=  -1;  cl6[41[6]  =  -1;  cl6[4H71  =  -1; 
=  -1;  cl6[51[21  =  1;  cl6[51 [3]  =  -1; 

=  1;  cl6[51[61  =  -1;  cl6[5I[71  =  1; 

=  1;  cl6[61[2]  =  -1;  cl6[61 (31  =  -1; 

=  -1;  cl6[61[61  =  1;  cl6[6H7)  =  1; 

=  -1;  cl6[71[21  =  -1;  cl6[7](31  =  1; 

-  1;  Cl6[71[61  =  1;  cl6[71 (71  =  -1; 


;  i++) 


{ 

cl6[i+81 [jl  -  cl6[il [jl; 
cl6[il (j+81  -  cl6[il [ jl; 
Cl6[i+81 [ j+81  =-cl6[il[jl; 
1 


) 

for  (  i  =  0;  i<=15;  1++) 

{ 

for  (  j  =  0;  j<=15;  j++) 

{ 

cl6[il (jl  =  cl6(ij (jj  /  4.0; 

) 

> 

goto  contlnuel6; 


sinetranl6: 

for  (k  =  0;  k<=15;  k++) 

{ 

for  (n  =  0;  n<”15;  n++) 

{ 

cl6[kl[nl  =  .342997  *  sin(3. 14159  *  (n  +  1)  *  <k  +  1)/17.0); 
) 

) 


contlnuelS: 

for  (nun  *  0;  nun  <  80;  nun++) 

{ 

string9[nun]  «  string! [mnl ; 

) 

if  (datall  ~  18  I  I  datall  —  28  II  datall  —  38)  lindt  -  3; 

else  limit  -  1; 

for  (1  -  0;  1  <  limit;  1++) 

( 

if  (flagl  =“  0) 

{ 

if  (datall  ~  18  I  I  datall  —  28  1 1  datall  ~  38) 

{ 
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if  (1  ==  0) 

{ 

for  (nim  -  0;  mm  <  80;  mm++) 

( 

string6(mm)  =  0; 

) 

String6[01  =  'Y'; 
input_filel  =  fopen(''Y",  “r+b"); 
key  =  0; 
i  =  0; 

while  (string7(il  !=  &&  i  !=  79) 

{ 

i  =  i  +  1; 

if  (string7tij  ==  key  =  i; 

) 

string7[key  +  1)  =  'y'; 

3tring7[key  +  2)  =  'y'; 
string7(key  +  3)  =  'y'; 
output_filel  =  fopen(string7,  "w+b"); 
for  (mm  =  0;  mm  <  80;  mm++) 

( 

stringOrmm)  =  string7 (mm) ; 

} 

stringStkey  +  1)  =  '1'; 
output_file2  =  fopen(string8,  "w+b"); 

) 

if  (1  ==  1) 

( 

for  (mm  =  0;  mm  <  80;  nm++) 

{ 

string6[mm]  =  0; 

) 

string6(0]  =  'C'; 

string6(ll  =  'b'; 

input_filel  =  fopenC'Cb",  "r+b"); 

key  =  0; 

i  =  0; 

while  (string7(i)  !=  &&  i  !=  79) 

( 

i  =  i  +  1; 

if  (string7(il  ==  '.')  key  -  i; 

} 

string7(key  +  IJ  =  'c'; 
stringTIkey  +2)  ”  'c'; 
string? [key  +  3J  “  'b'; 
output_filel  =  fopen (string?,  "w+b"); 
for  (mm  =  0;  mm  <  80;  mm++) 

( 

Strings [mmj  «  string? [mmj; 

) 
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Strings [key  +  1)  =  '1'; 
output_file2  =  f open (Strings,  "w+b"); 

} 

if  (1  ==  2) 

( 

for  (mm  =  0;  mm  <  80;  mm++) 

( 

Strings [mm]  =  0; 

) 

Strings [0]  =  'C'; 
stringS[l]  =  'r'; 

input_filel  =  fopen("Cr",  "r+b") ; 
key  =  0; 
i  =  0; 

while  (string7(i)  !=  tt  i  !=  79) 

( 

i  =  i  +  1; 

if  (string7[il  ==  key  =  i; 

) 

string7[key  +  1)  =  'o'; 
string7(key  +2)  =  'c'; 
string7(key  +  3]  =  'r'; 
output_filel  =  fopen (string7,  "w+b"); 
for  (mm  =  0;  mm  <  80;  mm++) 

( 

Strings (mml  =  string7[mm); 

t 

Strings (key  +  IJ  =  '1'; 
output_file2  =  fopen (Strings,  "w+b"); 

) 

) 

) 

if  (flagl  ==  1) 

( 

if  (datall  ==18  II  datall  ==28  II  datall  ==  38) 

( 

if  (1  ==  0) 

{ 

key  =0; 
i  =  0; 

while  (stringS[il  !=  &4  i  !=  79) 

( 

i  =  i  +  1; 

if  (stringSdJ  ==  '.')  key  =  i; 
) 

string6[key  +  1)  =  '1'; 
stringS[key  +  2)  =  'y'; 
stringS[key  +  3)  =  'y'; 
input_filel  =  fopen (strings,  "r+b") ; 
for  (mm  =  0;  mm  <  80;  mm++) 
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{ 

string7(mml  =  0; 

) 

string7(0]  =  "i' ! 
string7(l)  =  '1'; 

output_filel  =  fopen(”Yl”,  "w+b"); 

) 

if  (1  ==  1) 

{ 

key  =  0; 
i  =  0; 

while  (string6[i)  !*  SS  i  !=  79) 

( 

i  =  i  +  1; 

if  (string6(i)  ==  '.')  key  = 
} 

string6[key  +  1)  =  '1'; 

string6[key  +  2]  =  'c'; 

string6(key  +  3)  =  'b'; 

input_filel  =  fopen (string6,  "r+b"); 

for  (mm  =  0;  mm  <  80;  mm++) 

( 

string7(mm]  =  0; 

} 

stringTfOJ  =  'C'; 
string7(l)  =  'b'; 
string7[2]  =  '1'; 

output_filel  =  fopen("Cbl",  "w+b"); 

) 

if  (1  ==  2) 

{ 

key  =  0; 
i  =  0; 

while  (string6[i]  !=  St  i  !=  79) 

( 

i  =  i  +  1; 

if  (Strings [i]  ==  '.')  key  = 

) 

string6(key  +  1)  =  '1'; 

Strings [key  +2]  =  'c'; 

Strings [key  +  3J  =  'r'; 
input_filel  =  fopen (strings,  "r+b"); 
for  (mm  =  0;  mm  <  80;  mm++) 

( 

string7[mm)  =  0; 

) 

string7[01  =  'C'; 
string7[l)  =  'r'; 
string7[2)  ”  '1'; 
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output_filel  "  fopenC^Crl 
} 


w+b"); 


> 

if  (extflag  ==  0)  goto  next; 
wiclth4  =  xindex*16; 

if  (width4  !=  width3)  width4  =  width4  +  16; 
printf  ("\n."); 

if  (16  *  yindex  !=  heights)  yindex  =  yindex  1; 
for(  j  =  0;  j<=yindex-l;  j++) 

{ 

if  (flagl  ==  0) 

{ 

printf ("."); 

for  (  y  =  0;  y<=15;  y++) 

{ 

for  (  i  =  0;  i<=31;  i++) 

( 

for  (  X  =  0;  x<=15;  x++) 

{ 

if  (j  *  16  +  (y  +  1)  <  heights) 

( 

datal6[il ty] (x)  =  0; 

) 

else 

{ 

y)cey  =  y; 

fscanf (input_filel, "%c”,«cpl) ; 
datal6[i) [y] (xj  =  cpl  -  128; 

) 

} 

) 

X  =  512; 

while  (X  !=  widths) 


fscanf  <input_filel, "%c”, Scpl) ; 
x=x+l; 

) 

) 

) 

if  (flagl  ==  1) 

( 

printf  ("."); 

for  (  y  =  0;  y<=15;  y++) 

( 

if  (j  *  16  +  (y  +  1)  <-  heights)  ykey  ”  y; 
for  (  i  =  0;  i<=31;  i++) 


( 

for  (  X  -  0;  x<=15;  x++) 


( 
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fscanf (input_filel, "%c",  &cpl) ; 
dataieti] [yl [X]  =  cp’  -  128; 


while  (X  !=  width4) 


fscanf (input_filel,  ”%c",  Scpl)  ; 


if  (flagl  ==  0)  doforml6(32,  datal6,  templ6,  cl6); 
if  (flagl  ==  1)  doinvl6(32,  datal6,  cl6); 

if  (flagl  ==  0) 

( 

for  (  y  =  0;  y<=15;  y++) 

{ 

for  (  i  =  0;  i<=31;  i++) 

{ 

for  (  X  =  0;  x<=15;  x++) 

( 

if  (datal6(i) (yl (xl  >=  -threshold  ii  datalSti] [y] (x) 

<=  threshold)  datal6(i) (y) [x]  =  0; 

if  (datal6(i) (yl (xj  >  127)  datal6(i) (y) [x]  =  127; 
if  (datal6(il (y) (x)  <  -128)  datal6[il[yl (x)  =  -128; 
cpl  =  datal6(i) (yl [x]  +  128; 

if  (j  *  16  +  (y  +  1)  <=  height3)  putc  (cpl,output_filel) ; 
putc  (cpl,output_file2) ; 


if  (flagl  ==  1) 

{ 

for  (  y  =  0;  y<=yl^ey;  y++) 


for  (  i  =  0;  i<=31;  i++) 


for  (  X  =  0;  x<=15;  x++) 


if  (datal6(il (yl (xl  >  127)  datal6 (il [yl (x)  =  127; 
if  (datal6(i) (yl (xl  <  -128)  datal6(il (y) (xl  =  -128; 
cpl  -  datal6(il (yl [xl  +  128; 
putc  (cpl,output_filel) ; 
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) 


fclose (input_f ilel ) ; 

f close (output_filel) ; 

if  (flagl  ==  0)  fclose (output_file2) ; 

xindex  =  width3/16; 

yindex  =  heights/ 16; 

input_filel  =  fopen (strings,  "r+b"); 

output_filel  =  fopen(" tempi",  "w+b"); 

if  (flagl  ==  0)  ouCput_file2  =  fopen ("temp2",  "w+b"); 

nxindex  =  xindex  -  32; 


next: 

if  (extflag  ==  0)  nxindex  =  xindex; 
printf ("\n.") ; 

if  (16  *  yindex  !=  heights)  yindex  =  yindex  +  1; 
for(  j  =  0;  j<=yindex-l;  j++) 

{ 

if  (flagl  ==  0) 

{ 

printf  (" .  ")  ; 

for  (  y  =  0;  y<=15;  y++) 

( 

if  (extflag  ==  1) 

( 

for  ()c  =  0;  )c  <  512;  )c++)  fscanf  (input_filel,  "%c",  Scpl)  ; 
} 

for  (  i  =  0;  i<=nxindex-l;  i++) 

( 

for  (  X  =  0;  x<=15;  x++) 
t 

if  (j  *  16  +  (y  +  1)  >  heights) 

( 

datal6[i] (yj [x]  =  0; 

) 

else 

{ 

y)tey  =  y; 

fscanf (input_filel, ”%c",  scpl) ; 
datal6(i) (y) [x)  -  cpl  -  128; 

) 

} 

) 

if  (  16  *  xindex  !=  widths) 
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( 

y.key  =  16  *  xindex; 
i  =  nxindex; 

X  =  0; 

while  (x)^ey  !=  widthS) 

{ 
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if  (j  *  16  +  (y  +  1)  >  heights) 

( 

datal6[i] [y] [x]  =  0; 

) 

else 

( 

fscanf (input_filel,  ”%c",  Scpl) ; 
datal6[i] [y] [x)  =  cpl  -  128; 

) 

X  =  X  +  1; 
x)cey  =  xlcey  +  1; 

> 

while  (X  !=  16) 

{ 

datal6[i) [y] [x]  =  0; 

X  “  X  +  1; 

) 

} 

! 

} 

if  (flagl  ==  1) 

( 

printf  (". ")  ; 

for  (  y  =  0;  y<=15;  y++) 

( 

if  (j  *  16  +  (y  +  1)  <=  heights)  ylcey  =  y; 
if  (extflag  =“  1) 

{ 

for  ()c  =  0;  )c  <  512;  )c++)  fscanf  (input_filel,  "%c" ,  Scpl) 
) 

for  (  i  =  0;  i<=nxindex-l;  i++) 

( 

for  (  X  =  0;  x<=15;  x++) 

{ 

fscanf (input_filel, "%c", Scpl) ; 
datal6[il (y) (X)  =  cpl  -  128; 

> 

) 

if  (  16  *  xindex  !=  widths) 

( 

x)cey  =  16  •  xindex; 
i  =  nxindex; 

X  =  0; 

while  (x)cey  !=  widths ) 

{ 

fscanf (input_filel, "%c", Scpl) ; 
datal6(il [yj tx)  =  cpl  -  128; 

X  ”  X  +  1; 
x)cey  =  xlcey  +  1; 

) 

while  (X  !=  16) 
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{ 

fscanf (input_filel, "%c",scpl) ; 
datal6[i) (yl [X]  =  cpl  -  128; 

X  =  X  +  1; 

} 


ixindex  =  nxindex; 

if  (16  *  xindex  !=•  width3)  ixindex  =  ixindex  +  1; 
if  (flagl  “  0)  doforml6 (ixindex,  datal6,  templ6,  cl6); 
if  (flagl  =-  1)  doinvl6 (ixindex,  datal6,  cl6) ; 

if  (flagl  ==  0) 

{ 

for  (  y  =  0;  y<=15;  y++) 

( 

for  (  i  =  0;  K-nxindex-l;  i++) 

{ 

for  (  X  =  0;  x<=15;  x++) 

{ 

if  (datal6[ij  (y]  [xj  >»  -threshold  &&  datal6(iHy)  [x] 

<=  threshold)  datal6[i] [yl (x)  =  0; 

if  (datal6[il  ty]  [xl  >  127)  datal6  [iHy)  [x]  -  127; 
if  (dataieCil  (yl  [X)  <  -128)  datal6[i)  ly)  (x)  =»  -128; 
cpl  =  datal6(i]  [yHx]  +  128; 

if  (j  *  16  +  (y  +  1)  <=  heights)  putc  (cpl, output_filel)  ; 
putc  (cpl, output_flle2) ; 

) 

) 

if  (  16  *  xindex  !=  width3) 

{ 

xlcey  =  16  *  xindex; 
i  =  nxindex; 

X  -  0; 

while  (x)cey  !»  width3) 

( 

if  (datal6[il[y] [x]  >=  -threshold  &&  datal6[il [y] [x] 

<=  threshold)  datal6[i][y] [x]  =  0; 

if  (dataieriHy]  (x)  >  127)  datal6(i)  [yHx]  -  127; 
if  (datal6(il[yHx]  <  -128)  datal6[i)  [yl  [xl  =  -128; 
cpl  «  datal6(i) [yl [xl  +  128; 

if  (j  *  16  +  (y  +  1)  <=  heights)  putc  (cpl,output_filel) ; 
putc  (cpl,output_file2) ; 

X  <»  X  +  1; 
x)cey  =  x)cey  +  1; 

1 

while  (X  !-  16) 

{ 
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<=  threshold)  datal6 [i 1 [y) [x]  =  0; 


if  (flagl  ==  1) 


if  (datal6[i] [y) (x)  >=  -threshold  datal6(i] [yl [x] 

if  (datal6[il [y] (x)  >  127)  datal6 [i] (y] [x]  =  127; 
if  (datal6[i] [y] [X]  <  -128)  datal 6 [i] (y ] [x]  =  -128; 
cpl  =  datal6[i] [y] [x]  +  128; 
putc  (cpl,output_file2) ; 

X  =  X  +  1; 


for  (  y  =  0;  y<=y)cey;  y++) 

{ 

for  (  i  =  0;  i<=nxindex-l;  i++) 

( 

for  (  X  =  0;  x<=15;  x++) 


if  <datal6[i) (yl fx)  >  127)  datal6(i) [y] (x)  =  127; 
if  (dataiedUyl  [x]  <  -128)  datal6(i)  (y)  [x]  =  -128; 
cpl  =  datal6(il (yl (xl  +  128; 
putc  <cpl,ootput_filel) ; 


} 

if  (  16  *  xindex  !=  width3) 


xlcey  =  16  »  xindex; 
i  =  nxindex; 

X  =  0; 

while  (xlcey  i=  width3) 

{ 

if  (datal6(il  [yl  [xl  >  127)  datal6 [iHyHxl  =  127; 
if  (datal6(il [y] (x)  <  -128)  datal6(i) (y) [xl  =  -128; 
cpl  =  datal6(i) [yl [X)  +  128; 
putc  (cpl,output_filel); 

X  =  X  +  1; 

xlcey  =  xlcey  +  1; 


f close (input_filel ) ; 

fclose (output_filel) ; 

if  (flagl  ==  0)  fclose (output_file2); 


if  (extflag  ==  0  &&  zone  !=  16) 
( 

if  (flagl  "  0) 

( 
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inpat_filel  •  f open (strings,  "r+b"); 
output_filel  =  f open ("tempi",  "w+b"); 

if  (xindey.*16  !=  width3)  y.index  =*  xindey.  +  1; 

for  (y  ->  0;  y  <  yindex;  y++) 

{ 

for  (i  =  0;  i  <  16;  i++) 

( 

for  (X  =  0;  X  <  xindex;  x++) 

{ 

for  (j  =  0;  j  <  16;  j++) 

( 

f scanf (input_f ilel, "%c", 4cpl) ; 
putc  (cpl,output_filel) ; 
t 
) 

I 

) 

fclose  (input_filel ) ; 
fclose (output_filel) ; 

input_filel  =  fopen("templ",  "r+b"); 
output_filel  =  fopen (Strings,  "w+b"); 

for  (y  =  0;  y  <  yindex;  y++) 

( 

for  (i  =  0;  i  <  16;  i++) 

( 

for  (X  =  0;  X  <  xindex;  x++) 

{ 

for  (j  =  0;  j  <  16;  j++) 

{ 

f scanf (input_filel, "%c", 4cpl) ; 

if  (i  >=■  zone  1  I  j  >-  zone)  cpl  -  128; 

putc  (cpl,output_filel) ; 

) 

) 

) 

) 

fclose (input_filel) ; 
fclose (output_filel) ; 

) 

) 

if  (extflag  =■-  1) 

( 

input_filel  -  fopen (St ringT,  "r+b"); 
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input_file2  -  fopen(''teirpl",  "r+b"); 
output_filel  -  fopen ("teny3",  "w+b"); 

for  (y  ■=  0;  y  <  height3;  y++) 

( 

for  (X  “  0;  X  <  width3;  x++) 

( 

if  (X  <  512)  facanf (input_filel, "Ic",  scpl) ; 
else  fscanf (input_file2, "%c", scpl) ; 
putc  (cpl,output_filel)  ; 

) 

} 

fclose (input_f ilel )  ; 
fclose (input_f ile2) ; 
fclose (output_filel) ; 

input_filel  =  fopen <"temp3",  ”r+b"); 
output_filel  -  fopen (string7,  “w+b"); 

for  (y  -  0;  y  <  heights;  y++) 

{ 

for  (X  =  0;  X  <  width3;  x++) 

( 

fscanf (input_filel, "%c", (cpl) ; 
putc  (cpl , output_f ilel ) ; 

I 

) 


fclose (input_f ilel ) ; 
fclose (output_filel) ; 

if  (flagl  0) 

( 

input_filel  =  fopen (strings,  “r+b"); 
input_file2  -  fopen (“ten5)2",  "r+b"); 
output_filel  “  fopen (“temp3",  "w+b"); 


if  (xindex*16  !-  widthS)  xindex  -  xindex  +  1; 

for  (y  -  0;  y  <  yindex*16;  y++) 

( 

for  (X  ”  0;  X  <  xindex*16;  x++) 

( 

if  (X  <  512)  fscanf (input_filel,  "%c",  Scpl ) ; 
else  fscanf (input_file2, "%c", (cpl) ; 
putc  (cpl,output_fil»1 ) ; 

) 

I 

fclose (input_f ilel ) ; 
fclose (input_f ile2)  ; 
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fclose  (output_filel) ; 


input_filel  =  fopen ("tenp3",  "r+b"); 
output_filel  =  fopen (Strings,  "w+b"); 

for  (y  =0;  y  <  yindex;  y++) 

( 


for 

(i 

=  0; 

i  < 

16;  i++) 

{ 

for 

(X 

=  0; 

X  < 

xindex; 

.X  +  +) 

( 

for 

(j  = 

0;  j  < 

16;  j++) 

( 

fscanf (input_filel, "%c", scpl) ; 

if  (i  >=  zone  II  j  >=  zone)  cpl  =  128; 

putc  (cpl,output_filel) ; 

) 

} 

} 

) 

fclose (input_f ilel)  ; 
fclose (output_f ilel )  ; 

) 

remove ("tempi")  ; 
remove ("temp2" )  ; 
remove ("temp3" )  ; 

) 

) 

if  (datall  ==18  II  datall  ==28  II  datall  ==  38) 

I 

if  (flagl  ==  1) 

( 

input_filel  =  fopen ("Yl",  "r+b"); 
input_file2  =  fopen(”Cbl'',  "r+b"); 
input_file3  =  fopen("Crl”,  "r+b"); 
output_filel  =  fopen (Strings,  "w+b"); 

while  ( ! feof (input_filel)  S&  ! feof (input_file2)  &&  ! feof (input_f ile3) ) 
{ 

fscanf  (input_filel, "%c”, &cpl ) ; 

fscanf  (input_file2, "4c”, *cp2) ; 

fscanf  (input_file3, “4c", 4cp3) ; 

interm  »  cpl; 

interm2  -  interm; 

interm  =  cp3  -  128; 

interml  =  interm; 

interm2  =  interm2  +  interml  *  1.402; 
interm  -  (interm2  +  .5); 
if  (interm  <  0)  interm  =  0; 
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cp4  =  interm; 

if  <cp4  >  208)  cp4  =  224; 

else  if  (cp4  >  176)  cp4  =  192; 

else  if  (cp4  >  144)  cp4  =  160; 

else  if  (cp4  >  112)  cp4  =  128; 

else  if  (cp4  >  80)  cp4  =  96; 

else  if  (cp4  >  48)  cp4  =  64; 

else  if  (cp4  >  16)  cp4  =  32; 
else  cp4  =  0; 

interm  =  cpl; 
interm2  =  interm; 
interm  =  cp2  -  128; 
interml  =  interm; 

interml  =  interml  *  .34414; 

interm2  =  interm2  -  interml; 

interm  =  cp3  -  128; 
interml  =  interm; 

Interml  =  interml  ♦  .71414; 

interm2  =  interm2  -  interml; 

interm  =  (interm2  +  .5); 
if  (interm  <  0)  interm  =  0; 
cp5  =  interm; 
if  (cp5  >  208)  cp5  =  224; 
else  if  (cp5  >  176)  cp5  =  192; 

else  if  (cp5  >  144)  cp5  =  160; 

else  if  (cpS  >  112)  cp5  =  128; 

else  if  (cp5  >  80)  cp5  =  96; 

else  if  (cp5  >  48)  cp5  »  64; 

else  if  (cp5  >  16)  cp5  =  32; 
else  cp5  =  0; 

cp5  =  cp5  /  8; 
interm  =  cpl; 
interm2  =  interm; 
interm  =  cp2  -  128; 
interml  =  interm; 

interm2  =  interm2  +  interml  •  1.772; 

interm  =  (interm2  +  .5); 

if  (interm  <  0)  interm  =  0; 

cp6  =  interm, 

if  (cp6  >  160)  cp6  =  192; 

else  if  (cp6  >  96)  cp6  ■=  128; 

else  if  (cp6  >  32)  cp6  =  64; 
else  cp6  =  0; 

cp6  =  cp6  /  64; 

cpl  =  cp4  +  cp5  +  cp6; 

putc  (cpl,output_filel) ; 

} 

fclose (input_f ilel )  ; 
fclose (input_f ile2)  ; 
fclose (input_file3)  ; 
fclose (output_f ilel) ; 
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remove ("Yl”) ; 
remove ("Cbl" )  ; 
remove ("Crl") ; 

) 

if  (flagl  ==  0) 
{ 

remove ("Y") ; 
remove ("Cb") ; 
remove ("Cr") ; 

) 

) 

endl : 
printf 
) 
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LABlf  .C 


♦include  <stdio.h> 

♦include  <math.h> 

/************»»**,**********  STTIRT  DOFORM32  »***•»**»******«•♦****»**/ 

void  doform32 (ixindex,  data32,  c32) 

int  ixindex; 

int  data32(5) [32] [32]; 

float  c32[32][32]; 

( 

int  i,l,ra,  n; 

float  tempi,  teinp32  [32]  [32]  ; 

for  (  i  =  0;  i<ixindex;  i++) 

( 

for  (  1  =  0;  1<32;  1++) 

{ 

ten?)l  =  0; 

for  <  m  =  0;  m<32;  m++) 

( 

for  (  n  =  0;  n<32;  n++) 

( 

tempi  +•*  (float)  (data32[il  [ml  [n] )  •  c32[lltnl; 
) 

ten^32[m]  [1]  =  teitpl; 
tenpl  =0; 

) 

) 

for  (  1  =  0;  1<32;  1++) 

{ 

tempi  “  0; 

for  (m  •=  0;  m<32;  m++) 

( 

for  (  n  =  0;  n<32;  n++) 

( 

ten?>l  +»  c32[in][n]  *  teitp32 [n]  [1]  ; 

) 

if  (tempi  >-  0) 

[ 

data32[i] [m] [1]  -  (int)  (tenpl  /  32.0  +  0.5); 

} 

else 

{ 

data32[i] [m] [1]  >  (int)  (tempi  /  32.0  -  0.5); 

) 

tempi  «  0; 

) 

) 


Appendix  E  Source  Code  for  "Imago  Lab’  Software 


E95 


} 


} 

/***»*••**»*******************  end  E)0F0RM32 

/*»***»*****•*»**************  START  DOINV32 
void  doinv32 (ixindex,  data32,  c32) 

int  ixindex; 


int  data32[5] [32] [321; 
float  c32[321 (321; 


{ 

int  a,b,q,d; 

float  tenpl,  teirf>[321  (321  ; 

for  <a  =  0;  a<ixindex;  a++) 

( 

for  (b  =  0;  b<32;  b++) 

{ 

tempi  =  0.0; 

for  (q  =  0;  q<32;  q++) 

{ 

for  (d  =  0;  d<32;  d++) 

{ 

tempi  +=  (float)  (data32(al [ql (dl )  *  c32(dl[bl; 

1 

temp(ql(bl  »  tempi; 
tempi  =  0.0; 

} 

1 

for  (b  -  0;  b<32;  b++) 

( 

tempi  »  0; 

for  (q  =  0;  q<32;  q++) 

{ 

for  (d  =  0;  d<32;  d++) 

( 

tempi  +=  c32[dl(ql  *  temp[dl(bl; 

1 

if  (tenpl  >=  0) 

{ 

data32[al [ql (bl  -  (int)  (tempi  *  32  +  0.5); 

} 

else 

{ 

data32(a) (ql (bl  =  (int)  (tempi  *  32  -  0.5); 

) 

tempi  “  0; 

) 

) 

) 
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/*********i,i,******t*ttt  *******  £jjQ  DOINV32  ********************* 


void  lossy 32 (flagl, datall) 

Int  flagl, datall; 

{ 

int  ixindex, i, j, k, 1, n, mm, x, y, threshold, xkey,ykey,  key, keyl, 

marker, tempr, xindex, yindex, width!, height!, data32 (5) [32] [32], 
limit, ext flag=0, nxindex, zone, interm, width4; 
float  c32 [32] [32] , temp32 [32] [32] , interml,  interm2; 
char  string6 [80] , string7 [80] , string8 [80] , string9[80] ; 
unsigned  char  cpl, cp2, cp3, cp4, cp5, cp6; 

FILE  *input_filel; 

FILE  *input_file2; 

FILE  *input_file3; 

FILE  *input_f ile4; 

FILE  *output_fiIel; 

FILE  *output_file2; 

FILE  *outl; 

FILE  *out2; 

FILE  ‘out!; 

Set_Mode(3); 

if  (flagl  ==  0)  printf ("COMPRESSION:  "); 
if  (flagl  ==  1)  printf ("DECOMPRESSION:  "); 

if  (datall  ==  15)  printf ("COSINE-BLACK  &  WHITE  (32  X  32)\n\n"); 
if  (datall  ==  18)  printf ("COSINE-COLOR  (32  X  32)\n\n"); 
if  (datall  ==  25)  printf ("HADAMARD-BLACK  &  WHITE  (32  X  32)\n\n") 
if  (datall  ==  28)  printf ("HADAMARD-COLOR  (32  X  32)\n\n"); 
if  (datall  ==  35)  printf ("SINE-BLACK  &  WHITE  (32  X  32)\n\n"); 
if  (datall  ==  38)  printf ("SINE-COLOR  (32  X  32) \n\n") ; 

testart20: 

printf ("Type  name  of  input  file:  "); 
scanf ("%s", Strings) ; 

if  (flagl  ==  1) 

( 

key  -  0; 
i  -  0; 

while  (string6[i]  !=  &&  i  !=  79) 

( 

i  =■  i  +  1; 

if  (string6[i]  ==  '.')  key  =  i; 

) 

string6[key  +  1]  =  '1'; 

) 


Appendix  E  Source  Code  for  'Image  Lab'  Software 


input_filel  -  f open  (strings,  "r+b”); 

if  (input_filel  “  (FILE  *)  NULL) 

{ 

printf ("") ; 

Strings [key  +  1)  =  'd'; 
input_filel  -  fopen (strings,  "r+b"); 

’  \ 

if  (input_filel  ==  (FILE  *)  NOLL)  ' 

{ 

printf ("\n  Bad  file  -  try  again  \n  \n”); 
goto  restart20; 

) 

printf ("\nType  name  of  output  file;  ") ; 
scanf ("%s", string?) ; 

printf  ("\nEnter  width:  "); 
scanf ("%i", swidthS) ; 
prJ ntf ("\nEnter  height:  ") ; 
scanf (”%i", Sheight3) ; 

if  (widths  >  S40) 

{ 

printf  (”\nM)U<IMUM  ALLOWABLE  WIDTH  IS  S40."); 
getch  ( I ; 
goto  endl; 

) 

if  (flagl  ==  0) 

{ 

printf ("NnEnter  threshold:  "); 
scanf ("%i", sthreshold) ; 
restart30 : 

printf ("\nEnter  zonal  filter  level:  "); 
scanf ("%i", Szone) ; 
if  (zone  >  32  I  1  zone  <=  0) 

( 

printf ("\nRANGE:  1  -  32!!"); 

goto  restartSO; 

) 

) 

if  (flagl  ==  0) 

( 

if  (datall  =—18  II  datall  »=  28  II  datall  ==  38) 

{ 

outl  ”  fopen(")r",  "w+b"); 
out2  “  fopen ("Cb", "w+b") ; 
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out3  *  £op€n("Cr", "w+b") ; 
while  ( ! feof (input_filel) ) 

( 

fscanf  (input_filel, "%c", &cpl) ; 

cp4  -  cpl  &  224; 

interm  »  cp4; 

interml  =  intent; 

interm2  -  interml  *  .299; 

cp5  =  (cpl  i  28)  *  8; 

interm  -  cp5; 

interml  =  interm; 

interm2  =  interm2  +  interml  *  .587; 
cp6  “  (cpl  S3)  *  64; 
interm  =  cp6; 
interml  =  interm; 

interm2  =  interm2  +  interml  *  .114; 

interm  =  (interm2  +  .5); 

cp6  =  interm; 

putc ( cp6 , out 1 ) ; 

cp4  =  cpl  S  224; 

interm  =  cp4; 

interml  =  interm; 

interm2  -  interml  *  -.16874; 

cp5  =  (cpl  S  28)  »  8; 

interm  =  cp5; 

interml  =  interm; 

interm2  =  interm2  +  interml  *  -.33126; 

cp6  =  (cpl  S3)*  64; 

interm  «  cp6; 

interml  =  interm; 

interm2  =  interm2  +  interml  *  .5; 

if  (interm2  >  0)  interm  =  (interm2  +.5); 

else  interm  =  (interm2  -  .5); 

cp6  =  interm  +  128; 

putc(cp6, out2); 

cp4  =<  cpl  S  224; 

interm  *  cp4; 

interml  =  interm; 

interm2  ”  interml  *  . 5; 

cp5  »  (cpl  S  28)  *  8; 

interm  =  cp5; 

interml  -  interm; 

interm2  =  interm2  +  interml  »  -.41869; 
cp6  «  (cpl  S3)*  64; 
interm  =  cp6; 
interml  ■*  interm; 

interm2  -  interm2  +  interml  *  -.08131; 
if  (interm2  >  0)  interm  «  (interm2  +.5); 
else  interm  -  (interm2  -  .5); 
cp6  »  interm  +  128; 
putc(cp6,out3) ; 
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) 

fclose (input_f ilel )  ; 
fclose(outl)  ; 
fclose (out2) ; 
fclose  (out3) ; 

) 


output_filel  “  fopen(string7,  "w+b"); 
for  (x=  0;  y.  <  80;  x++) 

{ 

Strings [X]  =  string7[xl; 

) 

if  (flagl  ==  0) 

{ 

key  ”  0; 
i  “  0; 

while  (Strings  [il  S&  i  !=  79) 

{ 

i  =  i  +  1; 

if  (stringSCil  ==  key  =  i; 

i 

Strings  [key  +  1]  =  '1'; 
output_file2  =  fopen (Strings,  "w+b"); 

) 

if  (datall  ==18  II  datall  ==28  II  datall  ==  38) 

( 

fclose (output_f ilel) ; 
fclose (output_f ile2) ; 

) 

if  (width3  >  160)  extflag  =  1; 
if  (widths  >  320)  extflag  =  2; 
if  (width3  >  480)  extflag  =  3; 

xindex  =  width3/32; 
y index  =  height 3/32; 

if  (datall  ==15  II  datall  ==  18)  goto  cosinetran32; 

if  (datall  ==25  II  datall  -=  28)  goto  hadamard32; 

if  (datall  ==35  II  datall  ==  38)  goto  sinetran32; 

cosinetran32: 

for  (  k  =  0;  k<-31;  k++) 

( 

for  (  n  =  0;  n<=31;  n++) 

( 

if  (k  ==  0)  c32(k](nl  =  0.1767767; 

else  c32[kj(n)  =  0.25  *  cos(3, 14159  *  (2»n+l)  *  k  /  64.0); 
) 
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) 


goto  continue32; 


haclamard32 : 


c32[01  [0]  =  1;  c32[0]  [1]  =  1; 

c32[01  [4]  =  1;  c32(01  [5]  =  1; 

c32[ll  [0]  =  1;  c32[l)  [1]  =  -1 

c32[l][4)  =  1;  c32fl)[5]  =  -1 

c32[2]  [0)  =  1;  c32(2]  [1]  =  1; 

c32[21[4)  =  1;  c32[2][51  =  1; 
c32(3] [0]  =  1;  c32[31 (1)  =  -1 
c32[3)  (4)  =  1;  c32(3]  [5]  =  -1 
c32[41 [0]  =  1;  c32[41 [1]  =  1; 
c32[4H41  =  -1;  c32[4H51  =  - 
c32[5] [0]  =  1;  c32(51 [1]  =  -1 
c32[51 [4]  =  -1;  c32(5] [5]  =  1 
c32[61  [0]  =  1;  c32(61 (1)  =  1; 
c32[6] [4]  =  -1;  c32[6) [5]  =  - 
c32(7) [0]  =  1;  c32[71 [1]  -  -1 
o32(7) (4J  =  -1;  c32[7| (51  =  1 


c32(0) [2]  =  1;  c32(01 [3]  = 
c32(01 (6)  =  1;  c32(01 (7]  = 

;  c32[l](21  =  l;  c32tlH31  = 
;  c32(l)f61  =  1;  c32(l)(7]  = 
c32[21  (21  =  -1;  c32(21  (31  = 
c32(21(61  =  -1;  032(21(71  = 
;  c32(31  [21  =  -1;  c32(31  [31 
;  c32[31  [61  =  -1;  c32(31  [71 
032(41  [21  =  1;  o32(41 [31  = 
1;  032(41  (61  =  -1;  c32[41  (71 
;  032(51 [21  =  1;  o32(51 [31  = 
;  032(51  [61  =  -1;  o32(51  [71 
c32[61  (21  =  -1;  o32(61 (31  = 
1;  032(61 (61  =  1;  o32(61 [71 
;  032(71 [21  =  -1;  o32(71 [3] 

;  032(71  (61  =  1;  o22(71(71  = 


for  (  j  =  0;  j<=7;  j++) 

{ 

for  (  i  =  0;  i<=7;  i++) 

( 

c32(i+81  (jl  =  o32(il  (jl; 
c32(il  (j+81  =  c32(il  (  jl; 
c32(i+81 [j+81  =  -c32(il [jl; 
) 


for  (  j  =  0;  j<=15;  j++) 

{ 

for  (  i  =  0;  i<=15;  i++) 

{ 

o32[i+161  [jl  -  c32[il  [ jl; 
o32[il [j+161  =  c32(il [jl; 
o32[i+161  [  j+161  =  -o32(il[jl; 

1 

1 

for  (  i  =  0;  i<=31;  i++) 

[ 

for  (  j  -  0;  j<=31;  j++) 

( 

o32[il[jl  -o32[il[jl  /  5.656854; 

1 

1 

goto  contlnue32; 
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slnetran32 : 

for  (k  -  0;  k<“31;  k++) 

{ 

for  (n  •  0;  n<=31;  n++) 

{ 

c32[k)[n)  =  0.246183  *  sin(3. 14159  •  (n  +  1)  *  (k  +  l)/33.0); 
) 

) 

continue32 : 

for  (mm  =  0;  mm  <  80;  tnm++) 

{ 

string9[mml  *  string7 [mm] ; 

) 

if  (datall  ==18  II  datall  ==28  II  datall  =  38)  limit  =  3; 

else  limit  -  1; 

for  (1  =0;  1  <  limit;  1++) 

( 

if  (flagl  ==  0) 

{ 

if  (datall  ==18  II  datall  ==28  II  datall  -=  38) 

{ 

if  (1  ==  0) 

{ 

for  (mm  «  0;  mm  <  80;  mm++) 

( 

string6(mm)  »  0; 

) 

3tring6(01  =  'Y'; 
input_filel  =  fopen("y",  ”r+b"); 
key  =  0; 
i  =  0; 

while  (string7[i]  !=  &&  i  !=  79) 

{ 

i  =  i  +  1; 

if  (string7[i)  =  '.')  key  =  i; 

} 

string7(key  +  11  =  'y'; 
string7[key  +  2]  -  'y'; 
string7[key  +  3]  =  'y'; 
output_fllel  =  fopen(string7,  "w+b"); 
for  (mm  -  0;  mm  <  80;  ram++) 

( 

string8[mm]  =  3tring7[mm); 

} 

string8[key  +  1]  =  '1'; 
output_file2  “  fopen (string8,  "w+b"); 

1 


if  (1  “  1) 
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{ 

for  (mm  =  0;  mm  <  80;  mm++) 

{ 

string6[mm)  »  0; 

1 

string6[0]  =  'C'; 

string6(l]  =  'b'; 

inputfilel  =  fopen(”Cb",  "r+b"); 

key  -  0; 

i  -  0; 

while  (string7(i)  :=  ts  i  !-  79) 

( 

i  =  i  +  1; 

if  (string7[i)  =  key  “  i; 

) 

string7[key  +  1)  =  'c'; 
string7(key  +  2)  =  'c'; 
string7[key  +  3]  =  'b'; 
output_filel  =  fopen(string7,  "w+b"); 
for  (mm  =  0;  mm  <  80;  mm++) 

{ 

Strings [mm)  =  string7(mm); 

) 

Strings (key  +  1]  -  '1'; 
output_file2  ”  fopen (Strings,  “w+b”); 

} 

if  (1  —  2) 

{ 

for  (mm  =  0;  mm  <  80;  mm++) 

( 

Strings (mm)  «  0; 

) 

Strings [0]  =  'C'; 

stringSCl]  =  'r'; 

input_filel  =  fopen(“Cr",  ”r+b"); 

key  =  0; 

i  -  0; 

while  (string7(i)  !=  ss  i  !=  79) 

{ 

i  «  1  +  1; 

if  (string7[i)  —  '.')  key  -=  i; 

) 

string7[key  +  1)  'c'; 

string7[key  +  2)  •=  'c'; 

3tring7[key  +  3)  »  'r'; 
output_filel  -  fopen (string7,  "w+b"); 
for  (mm  ”  0;  mm  <  80;  mm++) 

[ 

Strings [mm)  -  string7[mm); 

) 


Appendix  E  Source  Code  for  'Image  Lab'  Software 


E103 


Strings [key  +  1]  -  '1'; 
output_file2  -  fopen (Strings,  “w+b”); 

) 

) 

) 

if  (flagl  ==  1) 

{ 

if  (datall  =-  IS  1 1  datali  --  28  ( I  datall  ==  38) 

{ 

if  (1  —  0) 

( 

key  -  0; 
i  =  0; 

while  (stringStil  !“  44  i  !=  79) 

{ 

i  =  i  +  1; 

if  (stringSCi)  =='.')  key  =  i; 

) 

Strings [key  +1)  =  '1'; 

Strings [key  +  2]  =  'y'; 

Strings  [key  +  3]  ■=  'y'; 
input_filel  =  fopen (strings,  "r+b"); 
for  (tnm  =  0;  nmi  <  80;  mn++) 

( 

string7 [mml  »  0; 

) 

string7[0)  -  'Y'; 
string7[l)  =  '1'; 

output_filel  =  fopen ("Yl",  "w+b"); 

) 

if  (1  —  1) 

{ 

key  =  0; 
i  “  0; 

while  (stringS[i]  !=  44  i  !•=  79) 

{ 

i  -  i  +  1; 

if  (stringS[il  ”  key  “  i; 

} 

Strings [key  +  II  “  '1'; 

Strings  [key  +  2]  =■  'c'; 
stringS[key  +  3]  -  'b'; 
input_filel  -  fopen (strings,  "r+b"); 
for  (Iran  *  0;  iran  <  80;  iran++) 

{ 

string?  [Iran)  -  0; 

I 

string7[01  »  'C'; 
string7[l)  >«  'b'; 
string? [21  »  '1'; 
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output_filel  “  fopen(“Cbl".  "w+b"); 

if  (1  ==  2) 

{ 

key  =  0; 
i  =  0; 

while  (string6(i)  SS  i  !=  79) 

{ 

i  =  i  +  1; 

if  (string6[i)  ==  key  =  i; 

) 

string6(key  +  1)  =  '1'; 
string6[key  +  2)  =  'c'; 
string6[key  +3]  =  'r'; 
input_filel  =■  fopen (strings,  “r+b"); 
for  (mm  =  0;  mm  <  80;  mm++> 

{ 

string7[mml  •  0; 

) 

string7[01  =  'C'; 
string7(l]  =  'r'; 
string7[2)  •  '1'; 

output_filel  =  fopen("Crl”,  ”w+b"); 

) 

I 

) 

width4  =  32*.xindex; 

if  (width4  !=  width3)  width4  =  width4  +  32; 

if  (extflag  ==  2)  goto  continue2; 
if  (extflag  ==  1)  goto  continuel; 
if  (extflag  ==  0)  goto  next; 

continue3: 
printf ("\n.") ; 

if  (32  *  yindex  !=  height3)  yindex  =  yindex  +  1; 
for(  j  =  0;  j<=yindex-l;  j++) 

{ 

if  (flagl  ==  0) 

{ 

printf  (". ")  ; 

for  (  y  =  0;  y<=31;  y++) 

( 

for  (  i  -  0;  i<=4;  i++) 

{ 

for  (  X  =  0;  x<=31;  x++) 

( 

if  (j  *  32  +  (y  +  1)  >  height3) 

{ 
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data32(i) ly) [XI  -  0; 

I 

else 

( 

ykey  =  y; 

f scanf (input_filel, "%c“, Scpl) ; 
data32[l) (y| (x)  =  cpl  -  128; 

) 

) 

( 

X  -  160; 

vhlle  (X  !”  widch3) 

( 

f  scanf  (input_filel,  '*%c**,  &cpl)  ; 
x-x+1; 

1 

) 

) 

if  (flagl  —  1) 

( 

printf  ; 

for  (  y  =  0;  y<=-31;  y++) 

( 

if  (j  *  32  +  (y  +  1)  <=  heights)  y)cey  =  y; 
for  (  i  =  0;  i<=4;  i++) 

{ 

for  (  X  =  0;  x<=31;  x++) 

( 

fscanf (input_filel, "%c", scpl) ; 
data32[il (yl (x)  =  cpl  -  128; 

) 

) 

X  -  160; 

while  {X  !«  width4) 

( 

fscanf (input_filel, "%c”, Scpl) ; 
x-x+1; 

) 

) 

) 

if  [flagl  «  0)  doform32[5,  data32,  c32); 
if  (flagl  ==  1)  doinv32(5,  data32,  c32); 

if  (flagl  —  0) 

( 

for  (  y  -  0;  y<-31;  y++) 

( 

for  (  i  -  0;  i<=4;  i++) 

( 

for  (  X  -  0;  x<-31;  x++) 
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{ 

if  (data32(il [y! (x)  >-  -threshold  &&  data32 [i] [y] [x) 

<“  threshold)  data32 [i]  (y)  [x]  =■  0; 

if  (data32til [yl (xl  >  127)  data32 (i J [y] [x]  =  127; 
if  (data32[i) [yl [X]  <  -128)  data32 (i)[y) [x]  =  -128; 
cpl  -  data32 til [y 1 (x)  +  128; 

if  (j  *  32  +  (y  +  1)  <=  height3)  putc  (cpl,output_filel) ; 
putc  (cpl,output_file2) ; 

1 

1 

) 

1 

if  (flagl  ■==  1) 

{ 

for  (  y  =  0;  y<=y)cey;  y++) 

{ 

for  (  i  =•  0;  i<=4;  i++) 

( 

for  <  X  =  0;  x<=31;  x++) 

( 

if  (data32[il [yl [xl  >  127)  data32 [il [yl (x)  =  127; 
if  (data32[i) [yl [xl  <  -128)  data32 [il [yl [xl  =  -128; 
cpl  =  data32[il [yl [xl  +  128; 
putc  (cpl,output_filel) ; 

1 

I 

1 

1 

) 

fclose (input_f ilel ) ; 

fclose (output_filel) ; 

if  (flagl  ==  0)  fclose (output_file2) ; 

xindex  =  width3/32; 

yindex  =  height3/32; 

input_filel  =  fopen (string6, "r+b") ; 

output_filel  =  fopen ("tempS", "w+b" ) ; 

if  (flagl  =”  0)  output_file2  =•  fopen  ("temp6",  "w+b")  ; 

continue2 : 
printf  ("Xn .  ") ; 

if  (32  *  yindex  !”  height3)  yindex  «  yindex  +  1; 
for (  j  “  0;  j<”yindex-l;  j++) 

[ 

if  (flagl  0) 

{ 

printf  ("."); 

for  (  y  ”  0;  y<=31;  y++) 

( 

if  (extflag  ==  3) 
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for  (k  =  0;  k  <  160;  k++)  fscan£(input_filel, "%c", scpl) ; 

t 

for  (  i  =  0;  i<=4;  i++) 

for  (  X  =  0;  x<=31;  x++> 

{ 

if  (j  *  32  +  (y  +  1)  >  hsight3) 

{ 

data32[il (yl [x]  =  0; 

) 

else 

{ 

ykey  =  y; 

fscanf (input_fil6l, "%c",  Scpl)  ; 
data32(i] (yl (xj  =  cpl  -  128; 

1 

) 

) 

if  (extflag  ==  2)  x  =  160; 
if  (extflag  ==  3)  x  =  320; 
while  (X  !=  width3) 

{ 

fscanf (input_filel, "%c”,  Scpl) ; 
x=x+l ; 

) 

) 

) 

if  (flagl  ==  1) 

( 

printf(''."); 

for  (  y  =  0;  y<=31;  y++) 

{ 

if  (extflag  ==  3) 

( 

for  (k  =  0;  k  <  160;  k++)  fscanf (input_filel, "%c", scpl) ; 

) 

if  (j  *  32  +  (y  +  1)  <=  heights)  ykey  =  y; 
for  (  i  =  0;  i<”4;  i++) 

{ 

for  (  X  “  0;  x<~31;  x++) 

( 

fscanf (input_filel, "%c", scpl) ; 
data32[il  (yHxl  -  cpl  -  128; 

) 

) 

if  (extflag  —  2)  x  «  160; 
if  (extflag  ==  3)  x  =  320; 
while  (X  !=  width4) 

{ 

fscanf (input_filel, "%c", Scpl) ; 
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X“X+1; 

) 

) 

) 

if  (flagl  ==  0)  doform32 (5,  data32,  c32) ; 
if  (flagl  ==  1)  doinv32(5,  data32,  c32) ; 

if  (flagl  ==  0) 

{ 

for  (  y  =  0;  y<=31;  y++) 

{ 

for  (  i  =  0;  i<=4;  i++) 

( 

for  (  X  =  0;  x<=31;  x++) 

( 

if  (data32[i) (yl txl  >=  -threshold  data32 [i] [y) [x) 

<=  threshold)  data32 (i) [y] [x]  =  0; 

if  (data32fi] [y] tx)  >  127)  data32 [i] [y ) (x)  =  127; 
if  (data32(i) tyltx]  <  -128)  data32 [i) [y] [x]  =  -128; 
cpl  =  data32(il tyl fx)  +  128; 

if  (j  *  32  +  (y  +  1)  <=  height!)  putc  (cpl,output_filel) ; 
putc  (cpl,output_file2) ; 

} 

) 

} 

) 

if  (flagl  ==  1) 

( 

for  (  y  =  0;  y<=y)cey;  y++) 

{ 

for  (  i  =  0;  i<=4;  i++) 

{ 

for  (  X  =  0;  x<=31;  x++) 

{ 

if  (data32(i) (y] [x]  >  127)  data32 (i) [y] [x)  =  127; 
if  (data32liHyHx)  <  -128)  data32  [i]  (y)  [x]  =  -128; 
cpl  =  data32(i) (yl lx)  +  128; 
putc  (cpl,output_filel) ; 

) 

) 

) 

) 

) 

fclose (input_f ilel ) ; 

fclose (output_filel) ; 

if  (flagl  ==  0)  fclose (output_file2) ; 

xindex  =  width3/32; 

yindex  =  height3/32; 

input_filel  “  fopen (string6, "r+b”) ; 
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output_filel  “  fopen ("teitp3",  "w+b" ) ; 

if  (flagl  ==  0)  output_file2  =  fopen("tenip4'*, "w+b") ; 

continuel : 
printf  ("\n.'')  ; 

if  (32  *  yindex  !=  height3)  yindex  =  yindex  +  1; 
for(  j  =  0;  j<=yindex-l;  j++) 

{ 

if  (flagl  ==  0) 

{ 

printf  ("."), • 

for  (  y  =  0;  y<=31;  y++) 

{ 

if  (extflag  ==  2) 

( 

for  (k  =  0;  k  <  160;  k++)  fscanf (input_filel, ”%c", 4cpl) ; 
) 

if  (extflag  ==  3) 

{ 

for  (k  =  0;  k  <  320;  k++)  fscanf (input_filel,  ”%c", 4cpl) ; 
1 

for  (  i  =  0;  i<=4;  i++) 

( 

for  (  X  =  0;  x<“31;  x++) 

( 

if  (j  *  32  +  (y  +  1)  >  heights) 

{ 

data32[i]  tyHxl  =  0; 

) 

else 

( 

ykey  =  y; 

fscanf (input_filel, "%c", Scpl) ; 
data32[i) Cyl fx)  =  cpl  -  128; 

) 

) 

) 

if  (extflag  ==  1)  x  =  160; 
if  (extflag  ==  2)  x  =  320; 
if  (extflag  ==  3)  x  =  480; 
while  (X  !=  width3) 

{ 

fscanf (input_filel, "%c", Scpl) ; 
x=x+l ; 

) 


if  (flagl  --  1) 

( 

printf(".''); 

for  (  y  -  0;  y<-31;  y++) 
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( 

if  (extflag  ==  2) 

{ 

for  (k  =  0;  k  <  160;  k++)  fscanf  (input_filel, ''%c",  scpl)  ; 

) 

if  (extflag  ==  3) 

{ 

for  (k  =  0;  k  <  320;  k++)  fscanf (input_filel, "%c”, scpl) ; 

) 

if  (j  *  32  +  (y  +  1)  <=  height3)  ykey  =  y; 
for  (  i  =  0;  i<=4;  i++) 

{ 

for  (  X  =  0;  x<=31;  x++) 

{ 

fscanf (input_filel, "%c", Scpl) ; 
data32[il (yl (X)  =  cpl  -  128; 

) 

) 

if  (extflag  ==  1)  x  »  160; 
if  (extflag  ==  2)  x  =  320; 
if  (extflag  ==  3)  x  *  480; 
while  (X  !=  width4) 

( 

fscanf (input_filel, "%c", Scpl) ; 
x-x+l; 

) 

) 

) 

if  (flagl  ==  0)  doforra32(5,  data32,  c32) ; 
if  (flagl  »=  1)  doinv32(5,  data32,  c32); 

if  (flagl  ==  0) 

( 

for  (  y  “  0;  y<-31;  y++) 

{ 

for  (  i  =  0;  i<=4;  i++) 

{ 

for  (  X  =  0;  x<“31;  x++) 

( 

if  (data32[i] (yl [x]  >-  -threshold  ss  data32 [i) [y] [x] 

<“  threshold)  data32[i] [y] [x]  -  0; 

if  (data32(i) [y] (X]  >  127)  data32 (i) [y] (xl  =  127; 
if  (data32(i]  [yHx]  <  -128)  data32  [i]  [y]  [x]  -  -128; 
cpl  -  data32 [i] (yl (x)  +  128; 

if  (j  »  32  +  (y  +  1)  <=  height3)  putc  (cpl,output_filel) ; 
putc  (cpl,output_file2) ; 

) 
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if  (flagl  =■  1) 

( 

for  (  y  =  0;  y<=ykey;  y++) 

{ 

for  (  i  =  0;  i<=4;  i++) 


for  (  X  “  0;  x<=31;  x++) 

{ 

if  (data32ri] [y) [X]  >  127)  data32 [i] [yl [x)  =  127; 
if  (data32(il tyl  (xl  <  -128)  data32 [i] [y] [x]  =  -128; 
cpl  =  data32[il [y] tx)  +  128; 
putc  (cpl/Output_filel) ; 

} 


) 

fclose(input_filel) ; 
f close (output_filel) ; 

if  (flagl  ==  0)  f close (output_file2) ; 


xindex  =  width3/32; 

yindex  -  height3/32; 

input_filel  =  fopen (string6, "r+b") ; 

output_filel  =  fopen("templ","w+b"); 

if  (flagl  ==  0)  output_file2  »  fopen (''tenrp2", "w+b”) ; 

if  (extflag  ==  1)  nxindex  =  xindex  -  5; 

if  (extflag  *=  2)  nxindex  =  xindex  -  10; 

if  (extflag  ==  3)  nxindex  =  xindex  -  15; 

next; 

if  (extflag  ==  0)  nxindex  =  xindex; 
printf  ("\n. ") ; 

if  (32  *  yindex  !=  height3)  yindex  =  yindex  +  1; 
for(  j  =  0;  j<=yindex-l;  j++) 

( 

if  (flagl  ==  0) 

( 

printf  ("."); 

for  (  y  =  0;  y<=31;  y++) 

{ 

if  (extflag  =”  1) 

( 

for  ()c  -  0;  )c  <  160;  k++)  fscanf  (lnput_filel,  "%c" ,  Scpl)  ; 
) 

if  (extflag  ==  2) 

{ 

for  (k  -  0;  k  <  320;  k++)  fscanf (input_filel, "%c" , scpl) ; 
} 

if  (extflag  --  3) 

{ 
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for  (k  =  0;  k  <  480;  k^■^■)  fscanf  (input_filel,  "%c",  Scpl)  ; 
} 

for  (  i  =  0;  i<=nxindex-l;  i++) 

{ 

for  (  X  =  0;  x<=31;  x++) 

{ 

if  (j  *  32  +  (y  +  1)  >  height3) 

( 

data32[i)  [y][x]  =  0; 

) 

else 

{ 

ykey  =  y; 

fscanf (input_filel, "%c", &cpl) ; 
data32[i) [yl [x]  =  cpl  -  128; 

} 

} 

( 

if  (  32  *  xindex  !=  width3) 

( 

xkey  =  32  ♦  xindex; 
i  =  nxindex; 

X  =  0; 

while  (xkey  !=  width3) 

if  (j  *  32  +  (y  +  1)  >  heights) 

( 

data32(i) [y] [x)  =  0; 

) 

else 

( 

fscanf (input_filel, "%c”, Scpl) ; 
data32[il [y] [X]  =  cpl  -  128; 

) 

X  =  X  +  1; 

xkey  =  xkey  +  1; 

I 

while  (X  !=  32) 

data32(i) (y) [x]  =  0; 

X  =  X  +  1; 

) 

) 

} 

) 

if  (flagl  =  1) 

{ 

printf (". ") ; 

for  (  y  =  0;  y<=31;  y++) 

( 

if  (extflag  =—  1) 
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( 

for  (k  =  0;  k  <  160;  k++)  fscanf (input_filel, "%c",Scpl) ; 
) 

if  (extflag  ==  2) 

( 

for  (k  =  0;  k  <  320;  k++)  fscanf (input_filel,  ”%c",4cpl) ; 
t 

if  (extflag  ==  3) 

( 

for  (k  “  0;  k  <  480;  k++>  fscanf (input_filel, "%c", &cpl) ; 
) 

if  (j  *  32  +  (y  +  1)  <=  height3)  ykey  =  y; 
for  (  i  -  0;  i<“nxindex-l;  i++) 

( 

for  (  X  =  0;  x<=31;  x++) 

{ 

fscanf (input_filel, "%c”,scpl) ; 
data32tij tyl [xj  =  cpl  -  128; 

) 

} 

if  (  32  *  xindex  !=  width3) 

{ 

xkey  =  32  *  xindex; 
i  =  nxindex; 

X  -  0; 

while  (xkey  (=  width3) 

{ 

fscanf (input_filel, "%c",  icpl) ; 
data32fij (yj (x)  =  cpl  -  128; 

X  =  X  +  1; 
xkey  =  xkey  +  1; 

) 

while  (X  !“  32) 

( 

fscanf (input_filel, "%c",&cpl) ; 
data32(i) [y] (x)  =  cpl  -  128; 

X  ■=  X  +  1; 

} 


ixindex  =  nxindex; 

if  (32  •  xindex  !-  width3)  ixindex  =  ixindex  +  1; 
if  (flagl  ==  0)  doform32 (Ixindex,  data32,  c32); 
if  (flagl  *=  1)  doinv32 (ixindex,  data32,  c32) ; 

if  (flagl  —  0) 

( 

for  (  y  =  0;  y<=31;  y++) 

( 
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for  (  i  “  0;  i<“nxindex-l;  i++) 

{ 

for  (  X  =  0;  x<"'31;  x++) 

if  (data32 [1] [y] [x]  >“  -threshold  &&  aata32 [i] [y] [x] 

<=  threshold)  data32 [i] [y] [x]  =  0; 

if  (data32[i] tyllx]  >  127)  data32 [i] [y) [x]  -  127; 
if  (data32{i]  (yHx)  <  -128)  data32  [i]  [y]  [x]  =  -128; 
cpl  =  data32ti] [yl [X}  +  128; 

if  (j  *  32  +  (y  +  1)  <=  height3)  putc  <cpl,output_filel) ; 
putc  (cpl , output_f ile2 ) ; 

) 

) 

if  (  32  *  xindex  !=  width3) 

{ 

x)cey  =  32  •  xindex; 
i  =  nxindex; 

X  -  0; 

while  (x)cey  !=  width3) 

{ 

if  (data32[i] [y] [x]  >=  -threshold  &&  data32 [i] Cy] [x] 

<-  threshold)  data32[i] [yj  tx)  -  0; 

if  (data32(i]  [y] [X)  >  127)  data32 til [y] [x]  =  127; 
if  (data32[i] [y] tx)  <  -128)  data32ti)  ty) tx]  =  -128; 
cpl  =  data32ti] tyl txl  +  128; 

if  (j  ♦  32  +  ty  +  1)  <•  height3)  putc  (cpl,output_filel) 
putc  (cpl , output_f ile2 ) ; 

X  =  X  1; 

xlcey  =  xlcey  +1; 

) 

while  (X  !=  32) 

{ 

if  (data32 (i) ty] tx]  >=  -threshold  &&  data32ti] ty)  tx] 

<-  threshold)  data32tl] ty]  tx]  -  0; 

if  (data32(i]  ty] tx]  >  127)  data32 ti] ty] tx]  =  127; 
if  (data32ti]  ty] tx]  <  -128)  data32ti]  ty] tx]  =  -128; 
cpl  =  data32 ti] ty] tx]  +  128; 
putc  (cpl , output_f ile2 ) ; 

X  -  X  +  1; 

) 

) 

} 

) 

if  (flagl  ”  1) 

{ 

for  (  y  “  0;  y<<«y)cey;  y++) 

( 

for  (  i  -  0;  i<-nxindex-l;  i++) 

{ 

for  (  X  -  0;  x<-31;  x++) 

( 
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) 

) 

) 

fclose (input_filel)  ; 
fclose (output_fiiel ) ; 


if  (data32[i)  [y]  [xl  >  127)  data32  [i]  [y]  [x]  =■  127; 
if  (data32[i] [y] [x]  <  -128)  data32[i] [y] [x]  =  -128; 
cpl  =  data32 [i] [yl tx)  +  128; 
putc  (cpl,output_filel) ; 

} 

if  (  32  *  xindex  !=  width3) 

{ 

xkey  =  32  *  xindex; 
i  =  nxindex; 

X  =  0; 

while  (xkey  !=  width3) 

( 

if  <data32[i) ty] tx]  >  127)  data32 [i] [y] [x]  ^ 

if  (data32(il [y] [xj  <  -128)  data32 [i] tyJ [x] 

cpl  =  data32 [i] [yl [x]  +  128; 

putc  ( cpl , auuput_f i le 1 ) ; 

x  =  X  +  1; 

xkey  =  xkey  +  1; 

) 

) 


if  (flagl  ===  0)  fclose  (output_file2) ; 


127; 

-128; 


if  (extflag  ==  0  ss  zone  !=  32) 

{ 

if  (flagl  ==  0) 

( 

input_filel  =  fopen (strings,  "r+b"); 
output_filel  =  fopen ("tempi",  "w+b"); 

if  (xindex*32  !=  width3)  xindex  =  xindex  +  1; 

for  (y  =  0;  y  <  yindex;  y++) 

( 

for  (i  =  0;  i  <  32;  i++) 

( 

for  (X  =  0;  X  <  xindex;  x++) 
t 

for  (j  =  0;  j  <  32;  j++) 

( 

fscanf (input_filel, "%c", &cpl) ; 
putc  (cpl, output_filel) ; 

} 

1 

) 
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} 

f close (input_filel)  ; 
fclose (output_filel)  ; 

input_filel  =  fopen( "tempi",  "r+b"); 
output_filel  =  fopen( Strings,  "w+b") ; 


fo- 


<y 


=  0;  y  <  yinde.x;  y++) 

{ 

for  (i  =  0;  i  <  32;  i++) 

{ 

for  (X  =  0;  X  <  xindex;  x++) 

{ 

for  (j  =  0;  j  <  32;  j++) 


( 


f scanf (input_filel, “%c", Scpl) ; 

if  (  i  >=  zone  I  I  j  >=  zone)  cpl  =  128; 

putc  (cpl,output_filel); 

} 

) 


} 


fclose (input_filel ) ; 
fclose (output_filel) ; 

} 

) 

if  (extflag  ==  1) 

{ 

input_filel  =  f open (string?,  "r+b"); 
input_file2  =  fopen ("tempi",  "r+b"); 
output_filel  =  fopen ("temp3",  "w+b"); 

for  (y  =  0;  y  <  height3;  y++) 

{ 

for  (X  =  0;  X  <  widtli3;  x++) 


if  (X  <  160)  fscanf (input_filel, "%c", Scpl) ; 
else  fscanf (input_file2, "%c", Scpl) ; 
putc  (cpl,output_filel) ; 

) 


fclose (input_f ilel ) ; 
fclose (input_f ile2) ; 
fclose (output_filel) ; 

input_filel  =  fopen ("temp3",  "r+b"); 
output_filel  =  fopen (string?,  "w+b"); 
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for  (y  -  0;  y  <  heights;  y++) 
t 

for  (X  =  0;  X  <  widthS;  x++) 
t 

fscanf (input_filel, "%c”,  &cpl) ; 
putc  (cpl, output_filel) ; 

) 

) 

fclose (input_filel) ; 
fclose (output_filel) ; 

if  (flagl  «=  0) 

{ 

input_filel  =  f open (strings,  "r+b”); 
input_file2  =  fopen ("temp2",  "r+b"); 
output_filel  =  fopen ("temp 3”,  "w+b"); 

if  (xindex*32  !=  widthS)  xindex  =  xindex  +  1; 

for  (y  =  0;  y  <  32*yindex;  y++) 

{ 

for  (X  =  0;  X  <  32*xindex;  x++) 

{ 

if  (X  <  160)  fscanf  (input_filel,  "%c",  icpl); 
else  fscanf (input_file2, "%c", &cpl) ; 
putc  (cpl,output_filel) ; 

) 

) 

fclose (input_filel ) ; 
fclose (input_file2)  ; 
fclose (output_filel) ; 

input_filel  =  fopen ("tempS",  "r+b"); 
output_filel  =  fopen (Strings,  "w+b"); 

for  (y  •=  0;  y  <  yindex;  y++) 

( 

for  (i  =  0;  i  <  32;  i++) 

( 

for  (X  *  0;  X  <  xindex;  x++) 

( 

for  (j  «  0;  j  <  32;  j++) 

{ 

fscanf (input_filel, "%c", &cpl) ; 

if  (  i  >=  zone  II  j  >•=  zone)  cpl  =■  12S; 

putc  (cpl , output_filel) ; 

) 

) 
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) 


fclose (input_f ilel )  ; 
fclose (output_filel ) ; 
} 


remove ( "tenpl " ) ; 
remove  ("teii?)2" )  ; 
remove ("temp3" ) ; 

) 

if  (extflag  ==  2) 

{ 

input_filel  =  f open (string?,  "r+b"); 
input_file2  =  fopen <"temp3”,  "r+b"); 
input_file3  “  fopen ("tempi",  "r+b"); 
output_filel  -  fopen ("teii?)5",  "w+b"); 

for  (y  =  0;  y  <  height3;  y++) 

{ 

for  (X  =  0;  X  <  width3;  x++) 

{ 

if  (X  <  160)  fscanf (input_filel, "%c", tcpl) ; 
else  if  (X  <  320)  fscanf (input_file2, "%c", Scpl) ; 
else  fscanf (input_file3,  "%c",  &cpl) ; 
putc  (cpl , output_f ilel) ; 

> 

fclose  (input_f ilel ) ; 
fclose (input_file2) ; 
fclose (input_file3) ; 
fclose  (output_filel) ; 

input_filel  =  fopen ("tempS",  "r+b"); 
output_filel  =  fopen (string?,  "w+b"); 

for  (y  -  0;  y  <  height3;  y++) 

{ 

for  (X  =  0;  X  <  wi<lth3;  x++) 

{ 

fscanf (input_filel, "%c", Scpl) ; 
putc  (cpl, output_filel) ; 

} 

) 

fclose (input_filel) ; 
fclose (output_f ilel) ; 

if  (flagl  =•=  0) 

( 
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input_filel  =  f open (strings,  "r+b"); 
input_file2  “  fopen ('*teinp4 "r+b"); 
input_file3  -  fopen ('’temp2",  "r+b"); 
output_filel  =  fopen (“tempS",  "w+b"); 

if  (xindex*32  !=  width3)  xindex  =  xindex  +  1; 

for  (y  =  0;  y  <  yifidex*32;  y++) 

( 

for  (X  =  0;  X  <  xindex*32;  x++) 

( 

if  (X  <  160)  fscanf (input_filel, "%c", scpl) ; 
else  if  (x  <  320)  fscanf (input_file2, "%c", 4cpl) ; 
else  fscanf (input_file3, "%c“, scpl) ; 
putc  (cpl,output_filel) ; 

) 

} 

fclose (input_filel) ; 
fclose (input_file2) ; 
fclose (lnput_f ile3) ; 
fclose (output_filel) ; 

input_filel  «  fopen (“tempS",  "r+b"); 
output_filel  =  fopen (Strings,  "w+b"); 

for  (y  =  0;  y  <  yindex;  y++) 

{ 

for  (i  =  0;  i  <  32;  i++) 

( 

for  (X  =  0;  X  <  xindex;  x++) 

( 

for  (j  =  0;  j  <  32;  j++) 

( 

fscanf (input_f ilel, "%c", scpl) ; 

if  (  i  >=  zone  I  I  j  >=  zone)  cpl  =  12S; 

putc  (cpl,output_filel) ; 

) 

) 

) 

) 

fclose (inpun_f ilel ) ; 
fclose (output_filel) ; 

) 

remove ( "tempi " )  ; 
remove ("temp2") ; 
remove ("temp3" ) ; 
remove ("temp4" ) ; 
remove ("tempS" ) ; 

) 
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if  (extflag  ==  3) 

{ 

input_filel  =  fopen (stringV,  "r+b"); 
input_file2  =  fopen ("tempS”,  "r+b”); 
input_file3  =  fopen ("temp3”,  "r+b"); 
input_file4  =  fopen ("tempi",  "r+b"); 
output_filel  =  fopen ("tempi",  "w+b"); 

for  (y  =  0;  y  <  height3;  y++) 

{ 

for  (X  =  0;  X  <  width3;  x++) 

{ 

if  (X  <  160)  fscanf  (input_filel, '’%c",  Scpl )  ; 
else  if  (X  <  320)  fscanf (input_file2,  "%c",  Scpl) ; 
else  if  (X  <  480)  fscanf (input_file3,  "%c",  Scpl)  ; 
else  fscanf (input_file4, "%c", Scpl) ; 
putc  (cpl, output_filel) ; 

) 

} 

fclose (input_f ilel ) ; 
fclose (input_file2) ; 
fclose (input_file3) ; 
fclose (input_file4) ; 
fclose (output_filel) ; 

input_filel  =  fopen ("tempi",  "r+b"); 
output_filel  =  fopen (stringl,  "w+b"); 

for  (y  =  0;  y  <  height3;  y++) 

( 

for  (X  =  0;  X  <  widthO;  x++) 

( 

fscanf (input_filel, "%c", scpl) ; 
putc  (cpl , output_filel) ; 

) 

} 

fclose (input_f  ilel) ; 
fclose (output_f ilel ) ; 

if  (flagl  ==  0) 

{ 

input_filel  =  fopen (strings,  "r+b"); 
input_file2  =  fopen ("temp6",  "r+b"); 
input_file3  =  fopen ("temp4",  "r+b"); 
input_file4  =  fopen ("temp2",  "r+b"); 
output_filel  “  fopen ("tempi",  "w+b"); 

if  (xindex*32  !=  width3)  xindex  =  xindex  +  1; 
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for  (y  =  0;  y  <  yindey.*32;  y++) 

{ 

for  <x  =  0;  X  <  xindex*32;  x++) 

( 

if  (X  <  160)  fscanf (input_filel, ”%c", scpl) ; 
else  if  (X  <  320)  fscanf (input_file2, "%c”, Scpl) ; 
else  if  (X  <  480)  fscanf (input_file3, ”%c", Scpl) ; 
else  fscanf (input_file4,  "%c",  Scpl) ; 
putc  (cpl,output_filel) ; 

) 

) 

fclose (input_filel) ; 
f close (input_file2) ; 
fclose (input_f ile3) ; 
fclose (input_file4) ; 
fclose (output_filel) ; 

input_filel  =  fopen( "tempi",  "r+b"); 
output_filel  •=  fopen(  St  rings,  "w+b"); 

for  (y  =  0;  y  <  yindex;  y++) 

{ 

for  (i  =  0,'  i  <  32;  i++) 

( 

for  (X  =  0;  X  <  xindex;  x++) 

( 

for  (j  “  0;  j  <  32;  j++) 

( 

fscanf  <input_f ilel , "%c” , scpl) ; 

if  (  i  >=  zone  I  I  j  >=  zone)  cpl  =  128; 

putc  (cpl, output_f ilel ) ; 

) 

) 

) 

) 

fclose (input_f ilel) ; 
fclose (output_f ilel) ; 

) 

remove ( "tempi " ) ; 
remove ("temp2" ) ; 
remove ( "temp3 " ) ; 
remove ( ”temp4 " ) ; 
remove ("tempS”) ; 
remove (”temp6” ) ; 
remove ("tempi" ) ; 

} 

> 

if  (datall  —  18  II  datall  =-28  II  datall  ==  38) 
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( 

if  (flagl  ==  1) 

{ 

input_filel  =  fopen("Yl",  "r+b”); 
input_file2  =  fopen(''Cbl",  "r+b"); 
input_file3  =  fopen ("Crl" ,  "r+b"); 
output_filel  =  fopen (Strings,  “w+b"); 

while  ( ! feof (input_filel)  &&  ifeof (input_file2)  &&  ! feof (input_file3) ) 

{ 

fscanf  (input_filel, "%c”, &cpl) ; 

fscanf  (input_file2, "%c",  Scp2) ; 

fscanf  (input_file3, "%c", Scp3) ; 

interm  ”  cpl; 

interm2  =  interm.- 

interm  =  cp3  -  128; 

interml  =  interm; 

interm2  =  interm2  +  interml  *  1.402; 

interm  =  (inter7n2  +  .  5)  ; 

if  (interm  <  0)  interm  =  0; 

cp4  =  interm; 

if  (cp4  >  208)  cp4  =  224; 

else  if  (cp4  >  176)  cp4  =  192; 

else  if  (cp4  >  144)  cp4  ■=  160; 

else  if  (cp4  >  112)  cp4  =  128; 

else  if  (cp4  >  80)  cp4  -  96; 

else  if  (cp4  >  48)  cp4  »  64; 

else  if  (cp4  >  16)  cp4  =  32; 
else  cp4  =  0; 

interm  =  cpl; 

interm2  =  interm.- 

interm  =  cp2  -  128; 

interml  =  interm; 

interml  =  interml  *  .34414; 

interm2  =  interm2  -  interml; 

interm  =  cp3  -  128; 

interml  =  interm; 

interml  =  interml  *  .71414; 

interm2  =  interm2  -  interml; 

interm  =  (interm2  +  .5); 

if  (interm  <  0)  interm  =  0; 

cpS  =  interm; 

if  (cp5  >  208)  cp5  =  224; 

else  if  (cp5  >  176)  cp5  =  192; 

else  if  (cp5  >  144)  cp5  =  160; 

else  if  (cp5  >  112)  cp5  =  128; 

else  if  (cp5  >  80)  cp5  =  96; 

else  if  (cp5  >  48)  cp5  =  64; 

else  if  (cp5  >  16)  cp5  =  32; 
else  cp5  =  0; 

cp5  ”  cp5  /  8,- 
interm  =  cpl; 
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interin2  -  interm; 
interm  =  cp2  -  128; 
interml  =  interm; 

interm2  =  interm2  +  interml  *  1.112; 

interm  =  (interm2  +  .5); 

if  (interm  <  0)  interm  =  0; 

cp6  =  interm; 

if  (cp6  >  160)  cp6  =  192; 

else  if  (cp6  >  96)  cp6  =  128; 

else  if  (cp6  >  32)  cp6  =  64; 
else  cp6  =  0; 

cp6  =  cp6  /  64; 

cpl  =  cp4  +  cpS  +  cp6; 

putc  (cpl,output_filel) ; 

} 

fclose (input_filel)  ; 
fclose (input_file2) ; 
fclose (input_file3) ; 
fclose <output_filel) ; 
remove ("Yl") ; 
remove ( "Cbl " ) ; 
remove ("Crl” ) ; 

} 

if  (flagl  ==  0) 

{ 

remove ("Y") ; 
remove ("Cb") ; 
remove ("Cr") ; 


endl : 

printf  ("")  ; 
) 
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LABZ  .  C 


♦include  <stdio.h> 

♦include  <math.h> 

/**»»»»*******»***»**»»»****  START  ANALYZE  «*«••*•*♦*«***♦**♦»*♦*****/ 
void  analyze (flag2) 
int  flag2; 

{ 

float  rat iol, count 3=0 . 0, count 4=0 . 0; 

int  i,  k, X, y, xindex, yindex, diff, threshold, chl4,width2, 
height2, widths, heights, xl,  x2,  yl,y2; 
char  string [151 , stringl [15] , string2 [151 , st r ingS [ 1 5 ] ; 
unsigned  char  p,cpl,cp2; 

long  int  count=0L, countl [256] , constant=lL, constantl=0L; 
float  j [256] , pixel, entropy; 

FILE  *input_file; 

FILE  *infile; 

FILE  *infilel; 

FILE  *infile2; 

FILE  *outfilel; 

Set  Mode (3); 


if 

(flag2 

== 

0) 

goto 

entropy; 

if 

(flag2 

== 

1) 

goto 

compare; 

if 

(flag2 

== 

2) 

goto 

mse; 

if 

(flag2 

== 

3) 

goto 

pixel ; 

if 

(flag2 

== 

4) 

goto 

ratio; 

if 

(flag2 

== 

5) 

goto 

chop; 

if 

(flag2 

== 

6) 

goto 

paste; 

if 

(flag2 

== 

7) 

goto 

pastevert; 

if 

(flag2 

== 

8) 

goto 

dif fimage; 

entropy: 

printf ("ENTROPY  CALCULATION\n\n")  ; 
entropy  =  0; 

for  (  i  =  0;  i<=255;  i++) 

{ 

j(i]=0; 

) 

pixel  =  0; 
restartlO: 

printf  ("Type  name  of  file:  "); 
scanf  ("%s", string  ) ; 
input_f ile=fopen (string, ”r+b") ; 
if  (input_file  ==  (FILE  *)  NULL) 

( 

I 
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printf(”\n  Bad  file  -  try  again  \n  Xn"); 
goto  restartlO; 

> 

while  ( ! feof (input_file) ) 

( 

fscanf  (input_file, "%c”, Sp) ; 

pixel  -  pixel  +1; 

k=p; 

j[)cl  =  jtk!+l; 

) 

for  (i  =  0;  i  <=255;  !++•) 

( 

if  (j[il  !-0) 

{ 

entropy  =  entropy  +  j [i] *log(jtil /pixel) ; 
) 

) 

entropy  =  -entropy/ (pixel ♦log(2) ) ; 
printf  ("NnEntropy  =  %f", entropy) ; 
printf ("XnHuf fman  encoding  can  achieve"); 
printf <"  a  %f  to  1  compression. \n", 8/enttopy) ; 

getchO; 
goto  end2; 

compare: 

printf ("COMPARE  FILES\n\n"); 
restartll : 

printf ("Input  file  1:  "); 
scanf ("%s", stringl) ; 
infilel  =  fopen (stringl, "r+b") ; 
if  (infilel  ==  (FILE  *)  NULL) 

{ 

printf("\n  Bad  file  -  try  again  \n  \n"); 
goto  restartll; 

) 

restartl2 : 

printf  ("Input  file  2:  "); 
scanf ("%s", string2) ; 
infile2  =  fopen (string2, "r+b") ; 
if  (infile2  ==  (FILE  *)  NULL) 

{ 

printf ("\n  Bad  file  -  try  again  \n  \n"); 
goto  restartl2; 

) 

printf ("Width:  "); 

scanf ("%i", sxindex) ; 

printf ("Height :  ") ; 

scanf ("%i", Syindex) ; 

printf ("Threshold  difference:  "); 

scanf ("%i", ithreshold) ; 
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for  (y  =  0;  y  <  yindex;  y++) 

for  (X  “  0;  X  <  xlndex;  x++) 

( 

fscanf  <infilel,  "%c'',  Scpl)  ; 
fscanf (infile2, "%c",  Scp2) ; 
diff  =  cpl  -  cp2; 

if  (diff  <  0)  diff  =  diff  -  2  »  diff; 
if  (diff  >=  threshold) 

{ 

printf ("\nPixel  1  -  %3i.  Pixel  2  -  %3i,  x  =  %3i,  y  =  %3i",cpl,cp2,x,y) 
chl4  =  getchO; 

if  (chl4  ==  'q'  II  chl4  ==  'Q')  goto  end2; 

) 

) 

) 

fclose  (inf ilel ) : 
fclose (infile2) ; 
goto  end2; 

pixel: 

printf ("HISTOGRAM\n\n")  ; 
restartl3: 

printf ("Input  file:  "); 
scanf ("%s",stringl); 
infilel  *  fopen(stringl, "r+b") ; 
if  (infilel  “  (FILE  *)  NOLL) 

{ 

printf ("\n  Bad  file  -  try  again  \n  \n"); 
goto  restartl3; 

) 

for  (i  =  0;  i  <  256;  i++)  countl[il  =  constantl; 
while  (! feof (infilel) ) 

{ 

fscanf  (infilel,  scpl) ; 
count  -  count  +  constant; 

X  =  cpl; 

countl[x]  >•  count  1  [x]  +  constant; 

) 

printf ("\n\nTotal  =  %li\n", count-1) ; 
for  (y  “  0;  y  <  16;  y++) 

{ 

for  (X  =  0;  X  <  16;  x++) 

( 

i  -  y  *  16  +  x; 

if  (countl[i]  !»  1)  printf ("XnPixel  %3i  occurs  %61i  tiroes. ", i, countl [i] ) ; 
else  printf ("XnPixel  %3i  occurs  %61i  time. ", i, countl [i] ) ; 

) 

getch ( ) ; 

) 
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fclose (infilel) ; 
goto  encl2; 

ratio: 

printf ("COMPRESSION  RATIO  CALCULATION\n\n") ; 
restart 14; 

printf ("Original  file:  "); 
scanf ("%s",stringl) ; 
infilel  =  fopen(stringl, "r+b”) ; 
if  (infilel  “  (FILE  *)  NULL) 

{ 

printf ("\n  Bad  file  -  try  again  \n  \n"); 
goto  restartl4; 

} 

restartlS: 

printf ("Compressed  file:  "); 
scanf ("%s", string2) ; 
infile2  =  f open (string2, "r+b") ; 
if  (infile2  ==  (FILE  *)  NULL) 

{ 

printf ("\n  Bad  file  -  try  again  \n  Nn"); 
goto  restartlS; 

) 

while  (!feof (infilel) ) 

{ 

fscanf (infilel, "%c",scpl) ; 
count 3=  counts  +  constant; 

) 

while  ( ! feof (infile2) ) 

{ 

fscanf  (.rnfile2, "%c", &cpl) ; 
count4  =  count4  +  constant; 

) 

printf ("\nOriginal  Size  =  %.0f",count3-l) ; 
printf ("NnConpressed  Size  =  %, Of", count4-l) ; 
ratiol  =  counts  /  count4; 

printf ("\nCompression  Achieved  =>  1 :%. 3f", ratiol) ; 
getch ( )  ; 

fclose ( infilel ) ; 
fclose (infile2) ; 

goto  end2; 

mse: 

printf ("MEAN  SQUARED  ERROR  CALCOLATION\n\n") ; 
restartlS: 

printf ("Input  file  1:  "); 

scanf ("%s", stringl ) ; 

infilel  =  fopen (stringl, "r+b"); 
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if  (infilel  ==  (FILE  *)  NOLL) 

( 

printf("\n  Bad  file  -  try  again  \n  \n"); 
goto  restartl6; 

} 

restartl7 : 

print f ("Input  file  2:  "); 
scanf ("%s",string2) ; 
infile2  =  fopen(string2, "r+b") ; 
if  (infile2  ==  (FILE  •)  NULL) 

( 

printf("\n  Bad  file  -  try  again  \n  \n"); 
goto  restartl7; 

) 

while  (! feof (infilel)  &&  ! feof (infile2) ) 

{ 

fscemf  (infilel, ''%c“, Scpl) ; 
f scanf (infile2, "%c", Scp2) ; 
diff  =  cpl  -  cp2; 

if  (diff  <  0)  diff  =  diff  -  2  »  diff; 
count  =  count  +  constant; 
counts  =  counts  +  diff  *  diff; 

) 

printf ("\nMean  Squared  Error  =  %2f ",countS/count) ; 
getch ( ) ; 

fclose  (infilel) ; 
fclose (infile2) ; 
goto  end2; 

chop: 

printf ("CHOP  IMAGE  FILE\n\n"); 
restart21 : 

printf ("Type  name  of  input  file:  "); 
scanf ("%s", stringl ) ; 
infilel  =  fopen(stringl, "r+b") ; 
if  (infilel  ==  (FILE  *)  NULL) 

{ 

printf ("\n  Bad  file  -  try  again  \n  \n"); 
goto  restart21; 

) 

printf ("Enter  width:  "); 

scanf ("%i", &width2) ; 

printf ("Enter  height:  "); 

scanf ("%i", sheight2) ; 

printf ("Type  name  of  output  file:  "); 

scanf ("%s",string2) ; 

outfilel  =  f open (Strings, "w+b" ) ; 

printf ("Enter  starting  X  coordinate:  "); 

scanf ("%i", Sxl ) ; 

printf  ("Enter  ending  X  coordinate:  "); 
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scanf Sx2) ; 

printf ("Enter  starting  Y  coordinate: 
scanf ("%i", syl) ; 

printf ("Enter  ending  Y  coordinate: 
scanf ("%i", Sy2) ; 

for  (y  =  1;  y  <=  y2;  y++) 

( 

for  (x  =  1;  y.  <•>  width2;  x++) 

( 

f scanf (infilel, "%c", &cpl) ; 

if(x  >=  xl  S4  X  <=  x2  &&  y  >=  yl  SS  y  <=  y2)  putc (cpl, outfilel) ; 
) 

) 

fclose  (infilel ) ; 
fclose  (outfilel) ; 
goto  end2; 


paste: 

printf ("PASTE  IMAGE  FILES:  HORIZONTALLY\n\n") ; 
restart22 : 

printf ("Type  name  of  input  file  1:  ") ; 
scanf ("%s",  stringl); 
infile  »  fopen (stringl, "r+b") ; 
if  (infile  »=  (FILE  »)  NOLL) 

{ 

printf (”\n  Bad  file  -  try  again  \n  \n"); 
goto  restart22; 

) 

printf  ("Enter  width:  "); 
scanf ("%i",  &width2); 
printf ("Enter  height:  "); 
scanf ("%i",  4height2); 
restart23: 

printf  ("Type  name  of  input  file  2;  "); 
scanf ("%s",  string2); 
infilel  =  fopen (string2, "r+b") ; 
if  (infilel  ==  (FILE  *)  NOLL) 

( 

printf ("\n  Bad  file  -  try  again  \n  \n"); 
goto  restart23; 

) 

printf ("Enter  width:  "); 
scanf ("%i",  Swidth3) ; 
printf ("Enter  height:  "); 
scanf ("%i",  Sheight3) ; 

printf ("Type  name  of  output  file:  "); 
scanf ("%s",  string3); 
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outfilel  =  fopen (Strings, "w+b"); 


xindex  =  widthZ  +  widthS; 

if  (heights  >  height2)  yindex  -  heights; 

else  yindex  =  height2; 

for  (k  “  0;  k  <  yindex;  k++) 

( 

for  (i  =  0;  i  <  xindex;  i++) 

{ 

if  (heights  ==  height2) 

{ 

if  (i  <  width2)  fscanf (infile, "%c”, &cpl) ; 
else  fscanf (infilel, "%c", Scpl) ; 
putc (cpl, outfilel ) ; 

} 

if  (heights  >  height2) 

{ 

if  (i  <  width2  SS  k  <  height2)  fscanf (infile, "%c",4cpl) ; 
if  (i  <  width2  SS  k  >=  height2)  cpl  -  0; 
if  (i  >=  width2)  fscanf(infilel,"%c",Scpl); 
putc (cpl, outfilel) ; 

) 

if  (heights  <  height2) 

{ 

if  (i  <  width2)  fscanf  (infile,  "%c’’,  Scpl) ; 
if  (i  >=  width2  SS  k  <  heights)  fscanf (infilel, "%c", Scpl) ; 
if  (i  >=  width2  SS  k  >=  heights)  cpl  =  0; 
putc(cpl, outfilel) ; 

) 

) 

) 

fclose (infile)  ; 
fclose (infilel) ; 
fclose (outfilel) ; 
goto  end2; 

pastevert: 

printf ("PASTE  IMAGE  FILES;  VERTICALLY\n\n") ; 
restartSO: 

printf ("Type  name  of  input  file  1:  "); 
scanf("%s",  stringl); 
infile  =  fopen (stringl, "r+b”) ; 
if  (infile  -=  (FILE  *)  NULL) 

{ 

printf ("\n  Bad  file  -  try  again  \n  \n”); 
goto  restartSO; 

) 

printf ("Enter  width:  "); 
scanf("%i",  Swidth2) ; 
printf ("Enter  height:  "); 
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scanf(“%i"/  Sheight2); 
restattSl : 

printf("Type  name  of  input  file  2;  "); 
scanf("%s",  string2); 
infilel  =  fopen (string2, "r+b”) ; 
if  (infile  ==  (FILE  *)  NULL) 

{ 

printf(''\n  Bad  file  -  try  again  \n  \n"); 
goto  restartSl; 

) 

printf ("Enter  width:  "); 
scanf("%i",  &width3); 
printf  ("Enter  height:  ") ; 
scanf("%i",  Sheight3); 

printf ("Type  name  of  output  file:  ") ; 

scanf("%s",  string!); 

outfilel  =  fopen (string!, "w+b” ) ; 

if  (width!  >  width!)  xindex  =  width!; 
else  xindex  “  width!; 
yindex  =  height!  +  height!; 

for  ():  =  0;  )i  <  yindex;  lc++) 

( 

for  (i  *  0;  i  <  xindex;  i++) 

{ 

if  (width!  ==  width!) 

{ 

if  ()^  <  height!)  fscanf  (infile,  "%c’', scpl)  ; 
else  fscanf  (infilel,  "lic",  Scpl) ; 
putc (cpl, outfilel) ; 

1 

if  (width!  >  width!) 

if  ()t  <  height!  ss  i  <  width!)  fscanf  (infile,  ”%c",  scpl)  ; 
if  <  height!  SS  i  >-  width!)  cpl  =  0; 
if  ()t  >=  height!)  fscanf  (inf  ilel,  "%c",  scpl) ; 
putc (cpl, outfilel) ; 

) 

if  (width!  <  width!) 

( 

if  ()c  <  height!)  fscanf  (infile,  "%c”,  scpl)  ; 

if  ()t  >=  height!  SS  i  <  width!)  fscanf  (infilel,  "%c”,  Scpl)  ; 
if  ()t  >=  height!  SS  i  >=  width!)  cpl  =  0; 
putc (cpl, outfilel)  ; 

1 

) 

) 

fclose (infile) ; 
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fclose  (inf ilel ) ; 
fclose (out f ilel) ; 
goto  end2; 

diff image: 

printf ("DIFFERENCE  IMAGES\n\n")  ; 
restart52 : 

printf ("Original  file:  "); 
scanf ( "%s", stringl)  ; 
infilel  =  fopen(stringl, "r+b") ; 
if  (infile  ==  (FILE  *)  NULL) 

( 

printf ("\n  Bad  file  -  try  again  \n  \n"); 
goto  restart52; 

) 

restart53: 

printf ("Reconstructed  file:  "); 
scanf ("%s", string2) ; 
infile2  =  fopen (string2, "r+b") ; 
if  (infile  ==  (FILE  ')  NULL) 

{ 

printf ("\n  Bad  file  -  try  again  \n  \n"); 
goto  restartSS; 

) 

printf ("Width:  "); 

scanf ("%i", ixindex) ; 

printf ("Height :  "); 

scanf  ("%i",  iyinde.x) ; 

printf ("Output  file:  "); 

scanf ("%s", Strings) ; 

outfilel  =  fopen (Strings, "w+b" ) ; 

for  (y  =  0;  y  <  yindex;  y++) 

( 

for  (X  =  0;  X  <  xindex;  x++) 

( 

fscanf (infilel, "%c",Scpl) ; 
fscanf (infile2; "%c",  &cp2)  ; 
diff  =  cpl  -  cp2; 
if  (diff  >  26)  cpl  =  2S5,- 
if  (diff  <  -26)  cpl  =  0; 
else  cpl  =  128  +  diff  *  5; 
putc (cpl, outfilel ) ; 

) 


fclose  (infilel ) ; 
fclose (inf ile2)  ; 
fclose (outfilel) ; 
goto  end2; 

end2 : 

printf  ("")  ; 
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) 

/•*«*»*»**»*♦»*«*»**•*»**♦*♦*  end  analyze  «•**»*»«***♦*»*♦•**♦*»*****/ 
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Appendix  F 

Source  Code  for  “Image  View” 


IMAGVIEW.BAT 


cl  /c  /DM5  /AL  /I\cscape\include  view.c 

link  /stack:44000  /SE;300  view, , ,  \global\global+\standard\standarcl 
+\cscape\lib\mllcscap+\cscape\lib\tnllowl; 


Software 
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VIEW.C 


♦include  <stdio.h> 

♦include  <string.h> 

♦include  <math.h> 

♦include  <stdlib.h> 

♦include  <dos.h> 

♦include  <stdarg.h> 

♦include  <ctype.h> 

♦include  <fcntl.h> 

♦include  <sys\types.h> 

♦include  <sys\stat.h> 

♦include  <io.h> 

♦include  "errhand.h" 

♦include  "bitio-h" 

♦include  ''\global\globdef  .h" 

♦ include  ” \cscape\ incl ude \cscape . h ” 
♦include  "\cscape\include\framer .h" 


int  vga_code, graphics, width, height, mode, modes  f 5] , choice, 

read_bank,write_bank, top, stat_buf (4] , radius. ix,iy, count; 
char  instringl [80] ,message_string(81] ,string(80) ,  strings [20)  ; 
unsigned  stringpall  f7681 , colorflag=2; 
sed_type  frame; 

FILE  *inpalette; 

FILE  *input_file; 

FILE  *input_filel; 


void  graphics! (idata,  mask,  ch) 
int  idata, mask, ch; 

( 

int  i,  j,p,l,m,ii,  jj,kk,mm,red2[8),green2f8J,blue2[8),x,y; 
unsigned  char  red [ 256] , green [256] , blue [256 J , redl [256] , greenl [256] , 
bluel[256] ,point_color, cp,  ch3; 

FILE  *input_file; 

FILE  *inpalette; 

FILE  *out; 

if  (idata  ==  21)  goto  loadimage; 
if  (ch  !-  0)  goto  preimage; 

/*»*»»*»»»«»************»**»*IMAGE****»»*******************/ 

loadimage: 

Set  ModeO)  ; 
restartl9; 

printf  ("Type  name  of  image  series  file:  "); 
scanf  ("%s", string); 


F2 


Appendix  F  Source  Code  for  “Imago  View"  Software 
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input_file=fopen (string, "r+b") ; 
if  (input_file  ==  (FILE  •)  NULL) 

{ 

printf("\n  Bad  file  -  try  again  \n  \n"); 
goto  restartl9; 

) 

fscanf  (input_file, "%i",  Scount)  ; 
goto  image; 

preimage: 

input_file=fopen (string, "r+b”) ; 
fscanf  (input_file, "%i", Scount) ; 

image : 

/*********.»*»**»**»»*»***VIDEO  MODES*******"""******* *****/ 
setmode : 

Set_Mode (3) ; 

fscanf  (input_file,  "%i",  Sc)i3)  ; 
if  (ch3  ==  1) 

{ 

width  =  320; 
mode  =  modes (11; 

1 

if  (ch3  ==  2) 

( 

width  =  640; 
mode  =  modes (21; 

} 

if  (ch3  ==  3) 

( 

width  =  800; 
mode  =  modes (3); 

) 

if  (ch3  ==  4) 

1 

width  =  1024; 
mode  =  modes [ 4 ] ; 

) 

if  (mode  ==  -1) 

printf  ("\nError"); 
if (Number_Color==256) 

{  Load_Write_Ban)c_256  (0)  ;  Load_Read_Banl^_256  (0)  ;  ) 
if  (Numl5er_Color==16) 

(  Load_Write_Ban)c_16 (0) ;  Load_Read_Ban)c_16 (0) ;  ) 

/****.**.*.*»* »»».**»**»»*video  modes**********************/ 

/*..*.*♦**.*** *»»*».*»«***LoAD  palette*********************/ 

loadpalette: 

restartlS: 

fscanf  (input_file, "%s", instringl)  ; 
inpalette-fopen (instringl, "r+b") ; 
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if  (inpalette  —  (FILE  *)  NULL) 

( 

ptintf("\n  Bad  file  -  try  again  \n  \n"); 
goto  restartlS; 

) 

p  =  0; 

while  (! feof (inpalette) ) 

( 

f  scant  (inpalette,  "%c'',  Sstringpall  (pi )  ; 
p  -  p  +  1; 

> 

f close (inpalette) ; 

/.**».»*****»**»»»»*»*»***lOAD  palette*'*****************'*/ 

count  =  count  -  1; 

fscanf  (input_fiie,  "%s",  stringJ) ; 

input_filel=fopen (string!,  "r+b")  ; 
fscanf  (input_file, ''%i".  Six) ; 
fscanf  (input_file, "%i", Siy) ; 

if  (ch  !=  0)  input_filel=fopen (string!,  "r+b”) ; 

Set_Mode (mode) ; 

for  (  ii  =  0;  ii<=255;  ii++) 

{ 

red(ii|  =  stringpall (iij ; 

1 

for  {  jj  =  256;  jj<=511;  jj++) 

( 

1  =  jj  -  256; 

green[l)  =  stringpall (jj) ; 

) 

for  (  )c)c  =  512;  )c)c<=767;  )c)c++) 

{ 

m  =  )c)c  -  512; 

blue[ml  =  stringpall  (k)^l  ; 

1 

outp (0x!c8, 0) ; 

for  (  mm  =  0;  mm<=255;  mm++) 

{ 

if  (ch  ==  0  II  ch  ==  1  II  ch  ==  4  II  ch  =»  6)  outp (0x!c9, red [mml /4) ;  else  outp (0x!c9, 0) ; 

if  (ch  ==  0  II  ch  ==  2  II  ch  “=  4  II  ch  ==  6)  outp(0x5c9,green(mm) /4) ;  else  outp (0x!c9, 0) ; 

if  (ch  ==  0  I  I  ch  ==  !  I  I  ch  ==  4  If  ch  ==  6)  outp(0x!c9, blue (mm) /4) ;  else  outp (0x!c9, 0) ; 

) 

for  (y=0;  y<=iy-l;y++) 

1 

for  (x=0;  x<=ix-l;x++) 

{ 

if  (y  ==  200  SS  width  ==  !20)  goto  end9; 

if  (y  480  SS  width  —  640)  goto  end9; 

if  (y  »  600  SS  width  -«  800)  goto  end9; 
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if  (y  ==  768  &&  width  =  1024)  goto  end9; 
fscanf  (input_filel,  "%c",Scp); 
if  (ch  ==  4) 

( 

point_color  =  cp  S  mask; 

if  (point_color  &&  ch  ==  4)  point_color  *  255; 
) 

else  point_color  =  cp; 

if  (X  <  1024)  WrPixel_256(x, y,point_color, width) ; 

> 

) 

end9: 

fclose (input_filel) ; 
getch  0 ; 

end4: 

if  (count  !=  0)  goto  image; 
fclose (input_file) ; 

} 

/*****»********».»*.***«**»». IMAGE********»**»***»»»*******/ 

int  mmode(idata) 
int  idata; 

int  ch30; 

Set_Mode(3)  ; 

printf ("AVAILABLE  MENU  COLORSNn"); 

printf("\nl.  Red"); 

printf  ("\n2.  Green"); 

printf  ("\n3.  Blue"); 

printf  ("\n4.  B4W"); 

printf (”\n\nSelection:  "); 

ch30  =  getch  0; 

printf ("%c", ch30) ; 

getch ( ) ; 

if  (ch30  ==  '1')  colorflag  =  0; 
if  (ch30  ==  '2')  colorflag  =  1; 
if  (ch30  ==  '3')  colorflag  =  2; 
if  (ch30  ==  '4')  colorflag  =  3; 

Set_Mode (3) ; 
return  (1) ; 

} 

int  metro (sdata,  data) 
char  * sdata; 
int  data; 

( 

int  mask,ch; 
mask  =  255; 
ch  -  0; 
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if  (data  ~  23)  ch  «  1; 
if  (data  =-  24)  cli  =  2; 
if  (data  ==  25)  ch  =  3; 
if  (data  ==  26) 

( 

ch  =  4; 
mas)c  =  128; 

) 

if  (data  ==  27) 

( 

ch  =  4; 
mas)c  =  64; 

} 

if  (data  ==  28) 

{ 

ch  *  4; 
mas)c  =  32; 

) 

if  (data  ==  29) 

( 

ch  =  4; 
mask  =  16; 

> 

if  (data  ==  30) 

( 

ch  =  4; 
mask  =8; 

} 

if  (data  ==  31) 

{ 

ch  =  4; 
mask  =  4; 

) 

if  (data  ==  32) 

{ 

ch  =  4; 
mask  =  2; 

) 

if  (data  ==  33) 

( 

ch  =  4; 
mask  =1; 

) 

if  (data  ==  34)  ch  =  6; 
graphicsl (data, mask, ch) ; 
Set_Mode(3) ; 
return  (1) ; 

) 

void  getout (idata) 
int  idata; 
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Set_Mocle  (3)  ; 
exit  (1) ; 

} 


static  struct  frame_def  main_frame[]  =  { 


{ 

"FILE 

t 

NULL, 

10), 

( 

"Load 

Series  File",  metro. 

21) 

{ 

"Quit' 

',  getout. 

0), 

{ 

FRAME 

_END 

), 

( 

"VIEW 

t 

NULL, 

11), 

( 

"Show 

Red' 

",  metro,  23), 

( 

"Show 

Green",  metro,  24), 

{ 

"Show 

Blue",  metro,  25), 

{ 

"Show 

Bit 

Plane 

7”,  metro. 

26) 

( 

"Show 

Bit 

Plane 

6",  metro. 

27) 

{ 

"Show 

Bit 

Plane 

5",  metro. 

28) 

( 

"Show 

Bit 

Plane 

4",  metro. 

29) 

( 

"Show 

Bit 

Plane 

3”,  metro. 

30) 

( 

"Show 

Bit 

Plane 

2",  metro. 

31) 

( 

"Show 

Bit 

Plane 

1",  metro. 

32) 

{ 

"Show 

Bit 

Plane 

0",  metro. 

33) 

(  "Display  Full  Image",  metro,  34), 
{  FRAME_END  ), 

I  "OPTIONS",  NOLL,  15), 

{  "Set  Menu  Color",  mmode,  0), 

(  FRAME_END  ), 

{  FRAME_END  ) 

); 


/»*»*•********»***♦**»*******♦»»»,»**»**»***,*»*,,,*»»**** **,,»,,,»*j»***,^ 

main  () 

{ 

int  i,  j,k,l,m,p,ii,  jj,  )ck,  mm,  red(256] ,  green  (256)  ,blue(256]  ; 

FILE  ‘inpalette; 

void  getout (void) ; 

int  mmode (int  idata) ; 

int  metro (char  ‘sdata,  int  data) ; 

void  graphical (int  idata,  int  mask,  int  ch) ; 

/♦*.*.»»**.********,*»**«»,****fjgfjU,***************,*,,,,**,*****,*^ 

Build_Mode () ; 
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vga_code”Which_VGA ( ) ; 

VGA_id  =  vga_code; 
if (vga_code<0) 

( 

SetModeO)  ; 

strcpy  (inessage_string,  "ERROR  Exit  iOO:  Can't  Detect  VGA"); 
Message_On_Screen  <niessage_string) ; 
exit ( 1) ; 

) 

graphics  =  1; 

Nun4>er_Color  =  256; 
for  (  i  *  1;  i<=4;  i++) 

{ 

modes [i)  =  0; 

> 

width  =  1024; 
height  =  768; 

mode  =  Find_Mode (width, height, Number_Color, graphics); 
if  (mode  !=  -1)  modes [4]  =  mode; 
width  =  800; 
height  =  600; 

mode  =  Find_Mode (width, height, Number_Color, graphics) ; 
if  (mode  !=  -1)  modes [3]  =  mode; 
width  =  640; 
height  -  480; 

mode  =  Find_Mode (width, height,  Number_Coior,  graphics); 
if  (mode  !=  -1)  modes (2)  =  mode; 
width  =  320; 
height  =  200; 

mode  =  Find_Mode  (width,  height,  Numl3er_Color,  graphics) ; 
if  (mode  !=  -1)  modes [1)  =  mode; 

Set^Mode (3) ; 

start: 

disp_Init (def_ModeCurrent,  NULL) ; 

if  (colorflag  ==  0)  frame  »  f rame_Open (main_frame,  bd_l,  0x04,  0x47,  0x07); 

if  (colorflag  ==  1)  frame  =  f rame_Open (main_f rame,  bd_l,  0x02,  0x7A,  0x07); 

if  (colorflag  ==  2)  frame  =  f rame_Open (main_f rame,  lxl_l,  0x01,  0x7B,  0x07); 

if  (colorflag  ==  3)  frame  ”  f rame_Open (main_frame,  bd_l,  0x07,  0x70,  0x07); 

f  rame_Repaint  ( f  reune) ; 

frame_Go (frame,  '  ',  NULL); 

frame_Close (frame) ; 

di3p_Close  0 ; 

goto  start; 

> 
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Waterways  Experiment  Station  Cataioging-in^biication  Data 

Ellis,  Michael  G. 

An  image  processing  technique  for  achieving  lossy  compression  of  data 
at  ratios  in  excess  if  100:1  /  by  Michael  G.  Ellis ;  prepared  for  Depart¬ 
ment  of  the  Army,  US  Army  Corps  of  Engineers. 

217  p. :  ill. :  28  cm.  —  (Technical  report ;  ITL-92-10) 

Includes  bibliographical  references. 

1 .  Image  processing  —  Digital  techniques.  2.  Data  compression  (Tele¬ 
communication)  —  Computer  programs.  3.  Digital  filters.  4.  Optical 
transfer  function.  I.  United  States.  Army.  Corps  of  Engineers.  II.  US 
Army  Engineer  Waterways  Experiment  Station.  III.  Title.  IV.  Series; 
Technical  report  (US  Army  Engineer  Watenways  Experiment  Station) ; 
ITL-92-10. 

TA7W34no.lTL-92-10 


